From 24739c46bdf079e29d63171273af31c5b9de6cbe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 10 Jul 2020 22:56:06 +0200 Subject: Javascript bind properties to object. --- module/output/html.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'module/output') diff --git a/module/output/html.scm b/module/output/html.scm index 14848335..d55e40f0 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -231,7 +231,8 @@ (onclick "toggle_child_popup(this)")))) ,(when (prop ev 'RRULE) `(span (@ (class "repeating")) "↺")) - ,((get-config 'summary-filter) ev (prop ev 'SUMMARY)) + (span (@ (class "summary")) + ,((get-config 'summary-filter) ev (prop ev 'SUMMARY))) ,(when (prop ev 'LOCATION) `(span (@ (class "location")) ,(string-map (lambda (c) (if (char=? c #\,) #\newline c)) @@ -423,7 +424,7 @@ (h3 ,(fmt-header (when (prop ev 'RRULE) `(span (@ (class "repeating")) "↺")) - (prop ev 'SUMMARY))) + `(span (@ (class "summary")) ,(prop ev 'SUMMARY)))) (div ,(call-with-values (lambda () (fmt-time-span ev)) (case-lambda [(start) `(div ,start)] -- cgit v1.2.3