diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-09-30 01:47:38 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-09-30 01:47:38 +0200 |
| commit | e28b54810bb42b21a069a1257cf5e59e06c735a0 (patch) | |
| tree | 8a6c9722ee761a48a0853e16628ba00558f41a20 /module/calp/html/view/calendar.scm | |
| parent | Start rework on js setup. (diff) | |
| download | calp-e28b54810bb42b21a069a1257cf5e59e06c735a0.tar.gz calp-e28b54810bb42b21a069a1257cf5e59e06c735a0.tar.xz | |
Replace today-button with web component.
Diffstat (limited to 'module/calp/html/view/calendar.scm')
| -rw-r--r-- | module/calp/html/view/calendar.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index 00451984..53e928f6 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -150,6 +150,7 @@ (footer (@ (style "grid-area: footer")) (span "Page generated " ,(date->string (current-date))) + (span "Current time " (current-time (@ (interval 1)))) (span (a (@ (href ,(repo-url))) "Source Code"))) @@ -166,13 +167,14 @@ ,(btn href: (date->string (set (day start-date) 1) "/month/~1.html") "månadsvy") - ,(btn id: "today-button" - href: (string-append - "/today?" (case intervaltype - [(month) "view=month"] - [(week) "view=week"] - [else ""])) - "idag")) + (today-button + (a (@ (class "btn") + (href ,(string-append + "/today?" (case intervaltype + [(month) "view=month"] + [(week) "view=week"] + [else ""])))) + (div "idag")))) (div (@ (id "jump-to")) ;; Firefox's accessability complain about each date |