From 2e8e491690e2f939a78be254c7965ad2d9841866 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 21 Apr 2022 21:12:22 +0200 Subject: Remove unused procedure form. --- module/calp/html/components.scm | 19 ------------------- module/calp/html/vcomponent.scm | 2 +- 2 files changed, 1 insertion(+), 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?)) -- cgit v1.2.3