From e8216ceb2cb5c61ef6fd6d6f6c9151511d01d8e9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 15 Nov 2021 01:39:46 +0100
Subject: Propagate default-calendar from backend to frontend.

---
 module/calp/html/view/calendar.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'module')

diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm
index 580d721e..64ee1c7c 100644
--- a/module/calp/html/view/calendar.scm
+++ b/module/calp/html/view/calendar.scm
@@ -94,7 +94,14 @@
     (meta (@ (name end-time)
              (content ,(date->string  (date+ end-date (date day: 1)) "~s"))))
 
-    (script "EDIT_MODE=" ,(if (edit-mode) "true" "false") ";")
+    (script
+     ,(format #f
+              "
+EDIT_MODE=~:[false~;true~];
+window.default_calendar='~a';"
+              (edit-mode)
+              (base64encode (get-config 'default-calendar))))
+
 
     (style ,(format #f "html {
     --editmode: 1.0;
-- 
cgit v1.2.3