diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-05 23:43:56 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-05 23:43:56 +0100 |
commit | 25eda56e1bccf772c333ee1f649f2627a197cee7 (patch) | |
tree | ba9b5218c7c62228a5008be4e96bb90e38e61f76 /module | |
parent | Xcal input split CATEGORIES. (diff) | |
download | calp-25eda56e1bccf772c333ee1f649f2627a197cee7.tar.gz calp-25eda56e1bccf772c333ee1f649f2627a197cee7.tar.xz |
Bound CATEGORIES input.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 6b9a48e9..a32899b1 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -208,7 +208,14 @@ ,@(with-label "Kategorier" - `(div (@ (class "input-list")) + ;; It would be better if these input-list's worked on the same + ;; class=bind system as the fields above. The problem with that + ;; is however that each input-list requires different search + ;; and join procedures. Currently this is bound in the JS, see + ;; [CATEGORIES_BIND]. + ;; It matches on ".input-list[data-property='categories']". + `(div (@ (class "input-list") + (data-property "categories")) ,@(awhen (prop ev 'CATEGORIES) (map (lambda (c) `(input (@ (size 2) |