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/html/components.scm | |
| 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/html/components.scm')
| -rw-r--r-- | module/calp/html/components.scm | 19 |
1 files changed, 0 insertions, 19 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") |