diff options
Diffstat (limited to 'module/html/view/calendar.scm')
-rw-r--r-- | module/html/view/calendar.scm | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm index 2371cfe0..72fcccbd 100644 --- a/module/html/view/calendar.scm +++ b/module/html/view/calendar.scm @@ -284,10 +284,18 @@ (summary "Calendar list") (ul ,@(map (lambda (calendar) - `(li (@ (class "CAL_bg_" + `(li (@ (class "CAL_" ,(html-attr (prop calendar 'NAME)))) ,(prop calendar 'NAME))) - calendars)))) + calendars)) + (div (@ (id "calendar-dropdown-template") (class "template")) + (select + (option "- Choose a Calendar -") + ,@(map (lambda (calendar) + `(option (@ (value ,(html-attr (prop calendar 'NAME)))) + ,(prop calendar 'NAME))) + calendars)) + ))) ;; List of events (div (@ (class "eventlist") @@ -317,7 +325,11 @@ ;; cloned mulitple times. dtstart: (datetime) dtend: (datetime) - summary: "New Event")))) + summary: "" + ;; force a description field, + ;; but don't put anything in + ;; it. + description: "")))) (event (car (children cal)))) `((div (@ (class "template event-container") (id "event-template") ;; Only needed to create a duration. So actual dates |