diff options
Diffstat (limited to 'module')
-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")) |