diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 11:42:01 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 11:42:01 +0200 |
| commit | 802f8a5d482e73785127dd7c560a68972c355c3f (patch) | |
| tree | e6c9e2efaf138727bd54b53fa72aeae2103ed01d /module/output/html.scm | |
| parent | Whitespace fixup. (diff) | |
| download | calp-802f8a5d482e73785127dd7c560a68972c355c3f.tar.gz calp-802f8a5d482e73785127dd7c560a68972c355c3f.tar.xz | |
[today] and [jump to] now works without JS.
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index a9f8fa5d..cbbc2498 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -686,21 +686,21 @@ ,(btn id: "today-button" href: (string-append - "/today" (case intervaltype - [(month) "/month"] - [(week) "/week"] - [else "/month"])) + "/today?" (case intervaltype + [(month) "view=month"] + [(week) "view=week"])) "idag")) (div (@ (class "jump-to")) - (form (@ (action ,(case intervaltype - [(month) "/month"] - [(week) "/week"] - [else "/month"]))) + (form (@ (action "/today")) + (input (@ (type hidden) + (name "view") + (value ,(case intervaltype + [(month week) => symbol->string] + [else "month"])))) (input (@ (type date) - (name "start-date") - (value (date->string start-date "~1")) - )) + (name "date") + (value (date->string start-date "~1")))) ,(btn "➔")))) (details (@ (open) (style "grid-area: cal")) |