diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-23 22:13:53 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-23 22:22:20 +0200 |
| commit | 460dd689177ab0083327eeaec859735e55dcf8ef (patch) | |
| tree | 12b29ae603e67b736b8e3a7690633dce0a4c2fb8 /module/calp | |
| parent | Update comment on cal-table. (diff) | |
| download | calp-460dd689177ab0083327eeaec859735e55dcf8ef.tar.gz calp-460dd689177ab0083327eeaec859735e55dcf8ef.tar.xz | |
Introduce component date-jump.
Diffstat (limited to 'module/calp')
| -rw-r--r-- | module/calp/html/view/calendar.scm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index aef33f36..6945c5d2 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -186,22 +186,22 @@ window.default_calendar='~a';" ;; Button to go to today ,(_ "Today")))) - (div (@ (id "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") - (value ,(case intervaltype - [(month week) => symbol->string] - [else "month"])))) - (input (@ (type date) - (name "date") - (value ,(date->string start-date "~1")))) - ,(btn "➔")))) + (date-jump + ;; 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") + (value ,(case intervaltype + [(month week) => symbol->string] + [else "month"])))) + (input (@ (type date) + (name "date") + (value ,(date->string start-date "~1")))) + ,(btn "➔")))) (details (@ (open) (style "grid-area: cal")) (summary ,(_ "Month overview")) |