From aac00ebd000790152554c1a972b765c1f8a75b9a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 8 Jul 2020 00:43:16 +0200
Subject: Fix minor errors in HTML output.

---
 module/output/html.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'module/output/html.scm')

diff --git a/module/output/html.scm b/module/output/html.scm
index 5b06fe01..130796e7 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -132,6 +132,8 @@
          ,@(let loop ((rem args))
              (cond
               [(null? rem) '()]
+              [(memv (car rem) '(onclick: href: class:))
+               (loop (cddr rem))]
               [(keyword? (car rem))
                (cons* `(,(keyword->symbol (car rem))
                         ,(cadr rem))
@@ -710,7 +712,7 @@
                                                     [else "month"]))))
                                 (input (@ (type date)
                                           (name "date")
-                                          (value (date->string start-date "~1"))))
+                                          (value ,(date->string start-date "~1"))))
                                 ,(btn "➔"))))
 
                 (details (@ (open) (style "grid-area: cal"))
-- 
cgit v1.2.3