diff options
Diffstat (limited to '')
| -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") |