diff options
Diffstat (limited to 'module/html/view')
-rw-r--r-- | module/html/view/calendar.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm index 4fad41c8..39f1092d 100644 --- a/module/html/view/calendar.scm +++ b/module/html/view/calendar.scm @@ -287,7 +287,14 @@ `(li (@ (class "CAL_" ,(html-attr (prop calendar 'NAME)))) ,(prop calendar 'NAME))) - calendars)))) + calendars)) + (div (@ (id "calendar-dropdown-template") (class "template")) + (select + ,@(map (lambda (calendar) + `(option (@ (value ,(prop calendar 'NAME))) + ,(prop calendar 'NAME))) + calendars)) + ))) ;; List of events (div (@ (class "eventlist") |