diff options
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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")) |