From 394df06bb40acf307baaedca59778d12e27d6dac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 10 Nov 2019 23:53:50 +0100 Subject: Fix next and prev month buttons. --- module/output/html.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'module/output') 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)))) ))) -- cgit v1.2.3