diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-08 00:43:16 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-08 00:43:16 +0200 |
commit | aac00ebd000790152554c1a972b765c1f8a75b9a (patch) | |
tree | bab2ff3c068e925a1ec34d02344e3705dd93e767 /module/output/html.scm | |
parent | Reformat xcal data in HTML with js. (diff) | |
download | calp-aac00ebd000790152554c1a972b765c1f8a75b9a.tar.gz calp-aac00ebd000790152554c1a972b765c1f8a75b9a.tar.xz |
Fix minor errors in HTML output.
Diffstat (limited to 'module/output/html.scm')
-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")) |