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 'module')
| -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"))) ))) |