From a8df6d53a53e34c289154fa0e24226c6d7080f18 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 13 Jul 2020 01:49:17 +0200 Subject: Minor cleanup. --- module/output/html.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'module/output') diff --git a/module/output/html.scm b/module/output/html.scm index e3a247d4..70c14cf3 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -219,9 +219,8 @@ (inner (+ x w) (left-subtree tree)) (inner x (right-subtree tree)))))) -(define* (make-block ev optional: (extra-attributes '())) - - (define popup-id (symbol->string (gensym "popup"))) +(define* (make-block ev optional: (extra-attributes '()) + key: (popup-id (symbol->string (gensym "popup")))) `((a (@ (href "#" ,(html-id ev)) (class "hidelink")) @@ -730,6 +729,11 @@ "idag")) (div (@ (class "jump-to")) + ;; Firefox's accessability complain about each date + ;; component, meaning that it's broken. This label + ;; is for the whole input, which can be enabled + ;; if wanted. + ;; (label (@ (for "date")) "Hoppa till") (form (@ (action "/today")) (input (@ (type hidden) (name "view") @@ -827,7 +831,7 @@ (caddar ; strip tag (make-block (car (children cal)) `((class " generated ") - (style " width: calc(100% * var(--editmode)) "))))))))))) + (style "width:calc(100%*var(--editmode));"))))))))))) -- cgit v1.2.3