diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 00:28:24 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 00:28:24 +0200 |
| commit | aa064382d0d611c96fb64cea10e0bfe734dab5f8 (patch) | |
| tree | acdca61bc613ec264275af1d96b50dc081fb27af | |
| parent | Add [today] and [jump to] button in frontend. (diff) | |
| download | calp-aa064382d0d611c96fb64cea10e0bfe734dab5f8.tar.gz calp-aa064382d0d611c96fb64cea10e0bfe734dab5f8.tar.xz | |
Whitespace fixup.
| -rw-r--r-- | module/output/html.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 3aeadd7e..a9f8fa5d 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -761,14 +761,14 @@ ;; Events which started before our start point, ;; but "spill" into our time span. (section (@ (class "text-day")) - (header (h2 "Tidigare")) - ,@(stream->list - (stream-map - fmt-single-event - (stream-take-while - (compose (cut date/-time<? <> start-date) - (extract 'DTSTART)) - (cdr (stream-car evs)))))) + (header (h2 "Tidigare")) + ,@(stream->list + (stream-map + fmt-single-event + (stream-take-while + (compose (cut date/-time<? <> start-date) + (extract 'DTSTART)) + (cdr (stream-car evs)))))) ,@(stream->list (stream-map fmt-day evs)))))))) |