diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-21 21:12:22 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-23 21:53:42 +0200 |
| commit | 2e8e491690e2f939a78be254c7965ad2d9841866 (patch) | |
| tree | ffbd542fe5a2aec07afaaad45287a12c70de2d77 /module/calp | |
| parent | Made update-zoneinfo own entry point. (diff) | |
| download | calp-2e8e491690e2f939a78be254c7965ad2d9841866.tar.gz calp-2e8e491690e2f939a78be254c7965ad2d9841866.tar.xz | |
Remove unused procedure form.
Diffstat (limited to 'module/calp')
| -rw-r--r-- | module/calp/html/components.scm | 19 | ||||
| -rw-r--r-- | module/calp/html/vcomponent.scm | 2 |
2 files changed, 1 insertions, 20 deletions
diff --git a/module/calp/html/components.scm b/module/calp/html/components.scm index 2aa95aa6..78142914 100644 --- a/module/calp/html/components.scm +++ b/module/calp/html/components.scm @@ -130,25 +130,6 @@ forms)))) -(define-public (form elements) - `(form - ,@(map (label self - (lambda (el) - (match el - ((name ('@ tags ...) body ...) - (let ((id (gensym "formelement"))) - (cons - `(label (@ (for ,id)) ,name) - (map - (set-attribute `((name ,name))) - (cons - ((set-attribute `((id ,id))) (car body)) - (cdr body)))))) - ((name body ...) - (self `(,name (@) ,@body)))))) - elements))) - - (define-public (include-css path . extra-attributes) `(link (@ (type "text/css") (rel "stylesheet") diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 01b3c651..574ad954 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -13,7 +13,7 @@ :use-module ((web uri-query) :select (encode-query-parameters)) :use-module ((calp html util) :select (html-id calculate-fg-color)) :use-module ((calp html config) :select (edit-mode debug)) - :use-module ((calp html components) :select (btn tabset form with-label)) + :use-module ((calp html components) :select (with-label)) :use-module ((crypto) :select (sha256 checksum->string)) :use-module ((xdg basedir) :prefix xdg-) :use-module ((vcomponent recurrence) :select (repeating?)) |