From 0ff627bca9739fb3d0c8c4f820bc052fc6dd108e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 23 Nov 2020 21:37:03 +0100 Subject: Bind large part of rrule. --- module/calp/html/vcomponent.scm | 7 +++---- module/calp/html/view/calendar.scm | 2 ++ 2 files changed, 5 insertions(+), 4 deletions(-) (limited to 'module') 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"))) -- cgit v1.2.3