diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-11 00:32:30 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-11 00:32:30 +0100 |
| commit | 7428d25fed09ab07b99896529b4bf616813df14d (patch) | |
| tree | f9e86434dda7d100f3b85c41dd723e70049bceec /module/calp/html/vcomponent.scm | |
| parent | Add most of form for editing rrule:s. (diff) | |
| download | calp-7428d25fed09ab07b99896529b4bf616813df14d.tar.gz calp-7428d25fed09ab07b99896529b4bf616813df14d.tar.xz | |
Add @select for RRULE options.
Diffstat (limited to 'module/calp/html/vcomponent.scm')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 94e4a6cf..2c98afc4 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -373,10 +373,13 @@ ,(case key ((freq) `(select (option "-") - ,@(map (lambda (x) `(option (@ (value ,x)) + ,@(map (lambda (x) `(option (@ (value ,x) + ,@(awhen (prop event 'RRULE) + (awhen (rrule:freq it) + (awhen (eq? it x) + '((selected)))))) ,(string-titlecase (symbol->string x)))) - ;; TODO selected '(SECONDLY MINUTELY HOURLY DAILY WEEKLY MONTHLY YEARLY)))) @@ -407,10 +410,13 @@ (value ,(awhen (prop event 'RRULE) (or (rrule:interval it) "")))))) ((wkst) - ;; TODO selected `(select (option "-") ,@(map (lambda (i) - `(option (@ (value ,i)) + `(option (@ (value ,i) + ,@(awhen (prop event 'RRULE) + (awhen (rrule:wkst it) + (awhen (eqv? it i) + '((selected)))))) ,(week-day-name i))) (iota 7)))) ((byday) 1 #| TODO |#) |