diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-10 23:53:50 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-10 23:53:58 +0100 |
commit | 394df06bb40acf307baaedca59778d12e27d6dac (patch) | |
tree | e902cf87c49bae648114710a1482b0edfda3b273 /module/output | |
parent | Work on HTML output. (diff) | |
download | calp-394df06bb40acf307baaedca59778d12e27d6dac.tar.gz calp-394df06bb40acf307baaedca59778d12e27d6dac.tar.xz |
Fix next and prev month buttons.
Diffstat (limited to 'module/output')
-rw-r--r-- | module/output/html.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index b3adefd6..cd983955 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -265,12 +265,16 @@ `(span "Version " (a (@ (href ,url)) ,hash))))) (aside (@ (class "sideinfo")) (div (@ (class "about")) - (div (@ (class "nav")) - (a (@ (href "#")) "«")) + (a (@ (href ,(date->string (set (date-month start) = (- 1)) "~Y-~m-~d") ".html") + (class "nav hidelink")) + (div (@ (class "nav")) + "«")) (div ,(cal-table (start-of-month start) (current-date))) - (div (@ (class "nav")) - (a (@ (href "#")) "»"))) + (a (@ (href ,(date->string (set (date-month start) = (+ 1)) "~Y-~m-~d") ".html") + (class "nav hidelink")) + (div (@ (class "nav")) + "»"))) (div (@ (class "eventlist")) ,@(stream->list (stream-map fmt-day evs))))))))) @@ -297,7 +301,7 @@ (let ((ms (month-stream start))) (stream-take 12 (stream-zip - ms (stream-map (lambda (d) (normalize-date** + ms (stream-map (lambda (d) (normalize-date (set (date-day d) = (- 1)))) (stream-cdr ms)))) ))) |