diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-14 00:19:05 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-14 00:19:53 +0100 |
| commit | 30357bc117aee20b7f43ec40fe5551930a0bf7d3 (patch) | |
| tree | 6a33cff2426c7c94d8caa8b62edb93cb2574d881 /module/output | |
| parent | Move stream-null? in group-stream. (diff) | |
| download | calp-30357bc117aee20b7f43ec40fe5551930a0bf7d3.tar.gz calp-30357bc117aee20b7f43ec40fe5551930a0bf7d3.tar.xz | |
Add datetime-difference.
Diffstat (limited to 'module/output')
| -rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index f30e6338..42290ed9 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -120,8 +120,8 @@ (partition (lambda (ev) (or (date? (attr ev 'DTSTART)) (datetime<=? (datetime time: (time hour: 24)) - (datetime- (attr ev 'DTEND) - (attr ev 'DTSTART))))) + (datetime-difference (attr ev 'DTEND) + (attr ev 'DTSTART))))) (stream->list events)))) ;; (format (current-error-port) "lay-out-day: ~a~%" (date->string date)) (format (current-error-port) "long=~a, short=~a~%" |