diff options
Diffstat (limited to 'module/calp/html/view/calendar.scm')
-rw-r--r-- | module/calp/html/view/calendar.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index c7a5c8c2..d4ad2977 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -27,6 +27,8 @@ :use-module ((vcomponent util group) :select (group-stream get-groups-between)) :use-module ((base64) :select (base64encode)) + + :use-module (ice-9 format) :use-module (calp translation) ) @@ -73,10 +75,10 @@ ,display))) (unless next-start - (error 'html-generate (_ "Next-start needs to be a procedure"))) + (scm-error 'misc-error "html-generate" (_ "Next-start needs to be a procedure") #f #f)) (unless prev-start - (error 'html-generate (_ "Prev-start needs to be a procedure"))) + (scm-error 'misc-error "html-generate" (_ "Prev-start needs to be a procedure") #f #f)) (xhtml-doc (@ (lang sv)) @@ -118,11 +120,12 @@ window.default_calendar='~a';" ,(include-alt-css "/static/light.css" '(title "Light")) (script (@ (src "/static/script.out.js"))) + (script (@ (src "/static/user/user-additions.js"))) ,(calendar-styles calendars) ,@(when (debug) - '((style ".root { background-color: pink; }")))) + '((style ":root { --background-color: pink; }")))) (body (div (@ (class "root")) |