diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-22 20:37:15 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-22 20:37:15 +0100 |
| commit | 9d4f7bdadd3599d1ed40a005d26a087d679d8e4d (patch) | |
| tree | c275d1ffed0fca9b77df55bd0c3508fb290a3123 /module | |
| parent | Restore contiued-continuing style for long events. (diff) | |
| download | calp-9d4f7bdadd3599d1ed40a005d26a087d679d8e4d.tar.gz calp-9d4f7bdadd3599d1ed40a005d26a087d679d8e4d.tar.xz | |
Minor cleanup.
Diffstat (limited to 'module')
| -rw-r--r-- | module/output/html.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 016bd45e..45e7df11 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -226,7 +226,7 @@ (define (lay-out-day day) (let* (((day-date . events) day) (time-obj (datetime date: day-date)) - (_ short-events (partition long-event? (stream->list events)))) + (short-events (stream->list events))) (fix-event-widths! short-events event-length-key: (lambda (e) (event-length/day day-date e))) `((div (@ (class "meta")) |