From 5da8874dd7f806992ff7b1ba577c841651d90615 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 12 Jul 2020 22:22:50 +0200 Subject: Minor formatting changes. --- module/output/html.scm | 11 +++++++---- 1 file 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) -- cgit v1.2.3