diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-23 21:37:03 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-23 21:37:03 +0100 |
commit | 0ff627bca9739fb3d0c8c4f820bc052fc6dd108e (patch) | |
tree | f4314589b48a62b0c55ea2f271cd70939cabd035 /module/c | |
parent | Notes on input-list doc. (diff) | |
download | calp-0ff627bca9739fb3d0c8c4f820bc052fc6dd108e.tar.gz calp-0ff627bca9739fb3d0c8c4f820bc052fc6dd108e.tar.xz |
Bind large part of rrule.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 7 | ||||
-rw-r--r-- | module/calp/html/view/calendar.scm | 2 |
2 files changed, 5 insertions, 4 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index b8bd3bb8..5d10c996 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -422,10 +422,9 @@ ((interval) `(input (@ (type number) (min 0) (size 4) (value ,(awhen (prop event 'RRULE) - (or (rrule:interval it) "")))) - (name "interval") - (class "bind-rr") - )) + (or (rrule:interval it) ""))) + (name "interval") + (class "bind-rr")))) ((wkst) `(select (@ (name "wkst") (class "bind-rr")) (option "-") diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index 0b2e50ab..5c503302 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -109,6 +109,8 @@ (script (@ (defer) (src "/static/dragable.js"))) (script (@ (defer) (src "/static/clock.js"))) (script (@ (defer) (src "/static/popup.js"))) + (script (@ (defer) (src "/static/rrule.js"))) + (script (@ (defer) (src "/static/binders.js"))) (script (@ (defer) (src "/static/server_connect.js"))) (script (@ (defer) (src "/static/input_list.js"))) (script (@ (defer) (src "/static/script.js"))) |