diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-21 00:13:20 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-21 00:13:20 +0100 |
| commit | 4a4c3e42151da7a83bd863d31d8ad5f8f4d07396 (patch) | |
| tree | 84a91b007d75979c102bdbc35ac8c7a721f75cb3 /module | |
| parent | Merge branch 'edit-rrule' into js (diff) | |
| download | calp-4a4c3e42151da7a83bd863d31d8ad5f8f4d07396.tar.gz calp-4a4c3e42151da7a83bd863d31d8ad5f8f4d07396.tar.xz | |
Further work on breakout and rrule.
Diffstat (limited to 'module')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 60f270f7..b8bd3bb8 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -60,7 +60,8 @@ ;; (format (current-error-port) "fmt-single-event: ~a~%" (prop ev 'X-HNH-FILENAME)) `(div (@ ,@(assq-merge attributes - `((class " eventtext summary-tab " + `((data-bindby "bind_view") + (class " eventtext summary-tab " ,(when (and (prop ev 'PARTSTAT) (eq? 'TENTATIVE (prop ev 'PARTSTAT))) " tentative "))))) @@ -145,7 +146,8 @@ (define*-public (fmt-for-edit ev optional: (attributes '()) key: (fmt-header list)) - `(div (@ (class " eventtext edit-tab ")) + `(div (@ (class " eventtext edit-tab ") + (data-bindby "bind_edit")) (form (@ (class "edit-form")) (div (@ (class "dropdown-goes-here"))) (h3 (input (@ (type "text") @@ -174,7 +176,10 @@ ,@(with-label "Heldag?" - `(input (@ (type "checkbox") (style "display:none") + `(input (@ (type "checkbox") + (class "bind") + (data-bindby "bind_wholeday") + (style "display:none") (name "wholeday")))) (input (@ (type "time") @@ -306,6 +311,7 @@ extra-attributes `((id ,(html-id ev)) (data-calendar ,(html-attr (or (prop (parent ev) 'NAME) "unknown"))) + ;; (data-bindon "bind_view") (class "event CAL_" ,(html-attr (or (prop (parent ev) 'NAME) "unknown")) ,(when (and (prop ev 'PARTSTAT) @@ -365,7 +371,9 @@ (define (editable-repeat-info event) `(div (@ (class "eventtext")) (h2 "Upprepningar") - (table (@ (class "recur-components")) + (table (@ (class "recur-components bind") + (name "rrule") + (data-bindby "bind_recur")) ,@(map ; (@@ (vcomponent recurrence internal) map-fields) (lambda (key ) `(tr (@ (class ,key)) (th ,key) |