diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-12 22:22:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-12 22:22:50 +0200 |
| commit | 5da8874dd7f806992ff7b1ba577c841651d90615 (patch) | |
| tree | 13cfae78b2a5c236d31cdb56fb2cbe44b27d5a5f | |
| parent | JS work. (diff) | |
| download | calp-5da8874dd7f806992ff7b1ba577c841651d90615.tar.gz calp-5da8874dd7f806992ff7b1ba577c841651d90615.tar.xz | |
Minor formatting changes.
| -rw-r--r-- | module/output/html.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 8fbd4286..e3a247d4 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -161,8 +161,9 @@ `(div (@ (class "popup-container") (id ,id) (onclick "event.stopPropagation()")) (div (@ (class "popup")) - (nav (@ (class "popup-control CAL_" ,(html-attr (or (prop (parent ev) 'NAME) - "unknown")))) + (nav (@ (class "popup-control CAL_" + ,(html-attr (or (prop (parent ev) 'NAME) + "unknown")))) ,(btn "×" title: "Stäng" onclick: (format #f "close_popup(~a)" id) @@ -178,8 +179,10 @@ `(("📅" ,(fmt-single-event ev)) ("⤓" (div (@ (style "font-family:sans")) (p "Ladda ner") - (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")))))) + (ul (li (a (@ (href "/calendar/" ,(prop ev 'UID) ".ics")) + "som iCal")) + (li (a (@ (href "/calendar/" ,(prop ev 'UID) ".xcs")) + "som xCal")))))) (when (edit-mode) `(("</>" ,((@ (output xcal) ns-wrap) |