diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-23 01:25:03 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-23 01:25:03 +0100 |
| commit | 3c6661064cefc16994a7ad7662d37fb84db44308 (patch) | |
| tree | d8d9b8d1ed172bd80d8e7ece326c10635643a4cb | |
| parent | Minor cleanup in HTML output. (diff) | |
| download | calp-3c6661064cefc16994a7ad7662d37fb84db44308.tar.gz calp-3c6661064cefc16994a7ad7662d37fb84db44308.tar.xz | |
Reintroduce sidebar text.
| -rw-r--r-- | module/output/html.scm | 8 |
1 files changed, 2 insertions, 6 deletions
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))))))))) |