diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-27 23:17:01 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-27 23:21:05 +0200 |
commit | b3250ac8289e4f4154682680d89c417f9a115e18 (patch) | |
tree | 320d4ef9a375cfef8eab1b361c760899b9d118fc /module | |
parent | Input cleaned up. (diff) | |
download | calp-b3250ac8289e4f4154682680d89c417f9a115e18.tar.gz calp-b3250ac8289e4f4154682680d89c417f9a115e18.tar.xz |
Add fancy editing of tag list.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 89020bd8..67634492 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -131,7 +131,7 @@ (name "summary") (required) (value ,(prop ev 'SUMMARY))))) - ,@(with-label "Heldag" `(input (@ (name "wholeday") (type "checkbox")))) + ,@(with-label "Heldag?" `(input (@ (name "wholeday") (type "checkbox")))) ,@(let ((start (prop ev 'DTSTART))) (with-label "Start" @@ -170,13 +170,19 @@ ,@(with-label "Kategorier" - (awhen (prop ev 'CATEGORIES) - (map (lambda (c) `(button (@ (class "category")) ,c)) - it)) + `(div (@ (class "inline-edit")) + ,@(awhen (prop ev 'CATEGORIES) + (map (lambda (c) + `(input (@ (size 2) + (value ,c)))) + it)) - `(input (@ (class "category") - (type "text") - (placeholder "category")))) + (input (@ (class "final") + (size 2) + (type "text") + )))) + + (input (@ (type "submit"))) ))) |