aboutsummaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/html/vcomponent.scm5
-rw-r--r--module/html/view/calendar.scm3
2 files changed, 5 insertions, 3 deletions
diff --git a/module/html/vcomponent.scm b/module/html/vcomponent.scm
index f9c24ecd..ca8a81c2 100644
--- a/module/html/vcomponent.scm
+++ b/module/html/vcomponent.scm
@@ -78,8 +78,9 @@
(div (@ (class "location"))
,(string-map (lambda (c) (if (char=? c #\,) #\newline c))
(prop ev 'LOCATION)))))
- ,(and=> (prop ev 'DESCRIPTION)
- (lambda (str) (format-description ev str)))
+ ,(awhen (prop ev 'DESCRIPTION)
+ `(span (@ (class "description"))
+ ,(format-description ev it)))
,(awhen (prop ev 'RRULE)
`(span (@ (class "rrule"))
,@(format-recurrence-rule ev)))
diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm
index 2371cfe0..4753e1e6 100644
--- a/module/html/view/calendar.scm
+++ b/module/html/view/calendar.scm
@@ -317,7 +317,8 @@
;; cloned mulitple times.
dtstart: (datetime)
dtend: (datetime)
- summary: "New Event"))))
+ summary: "New Event"
+ description: "None yet"))))
(event (car (children cal))))
`((div (@ (class "template event-container") (id "event-template")
;; Only needed to create a duration. So actual dates