diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-08 02:15:24 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-08 02:15:24 +0200 |
commit | 71ccf9952a6eee5da7b658d5b04e0c0a0731a81e (patch) | |
tree | 0f6128edf2d52fc6acd6660ac1b666f11666c6ec /module/output | |
parent | Add TODO about stack overflow fro add-/remove-event. (diff) | |
download | calp-71ccf9952a6eee5da7b658d5b04e0c0a0731a81e.tar.gz calp-71ccf9952a6eee5da7b658d5b04e0c0a0731a81e.tar.xz |
Add xcal class to unformatted xml.
Diffstat (limited to 'module/output')
-rw-r--r-- | module/output/html.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index de5bca01..66b3ad69 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -175,7 +175,8 @@ (ul (li (a (@ (href ,(string-append "/calendar/" (prop ev 'UID) ".ics"))) "som iCal")) (li (a (@ (href ,(string-append "/calendar/" (prop ev 'UID) ".xcs"))) "som xCal")))))) (when (edit-mode) - `(("</>" (script (@ (type "application/calendar+xml")) + `(("</>" (script (@ (class "xcal") + (type "application/calendar+xml")) ,((@ (output xcal) vcomponent->sxcal) ev)))))))))) |