From 3c6661064cefc16994a7ad7662d37fb84db44308 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 23 Mar 2020 01:25:03 +0100 Subject: Reintroduce sidebar text. --- module/output/html.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'module/output/html.scm') diff --git a/module/output/html.scm b/module/output/html.scm index 93487fdc..e6e8f37a 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -479,10 +479,8 @@ (pre-start start-date) (post-end end-date)) ;; TODO maybe don't do this again for every month - ;; (define evs (get-groups-between (group-stream events) - ;; start-date end-date)) - - (define month-base (start-of-month start-date)) + (define evs (get-groups-between (group-stream events) + start-date end-date)) (define (nav-link display date) `(a (@ (href ,(date->string date "~Y-~m-~d") ".html") @@ -573,7 +571,6 @@ calendars))) ;; Events which started before our start point, but "spill" into our time span. - #; (section (@ (class "text-day")) (header (h2 "Tidigare")) ,@(stream->list @@ -581,7 +578,6 @@ (stream-take-while (compose (cut date/-time start-date) (extract 'DTSTART)) (cdr (stream-car evs)))))) - #; ,@(stream->list (stream-map fmt-day evs))))))))) -- cgit v1.2.3