diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-10 22:56:06 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-10 22:56:06 +0200 |
commit | 24739c46bdf079e29d63171273af31c5b9de6cbe (patch) | |
tree | d12b14f7c87d4bdeed74251a5183aea129ae6890 /module | |
parent | Fix popup close buttons, and ESC to close all. (diff) | |
download | calp-24739c46bdf079e29d63171273af31c5b9de6cbe.tar.gz calp-24739c46bdf079e29d63171273af31c5b9de6cbe.tar.xz |
Javascript bind properties to object.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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)] |