diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-05 21:34:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-05 21:34:56 +0200 |
| commit | 228d485e10f44b402843badabba4f09599f3c2a3 (patch) | |
| tree | 2b00de0ea6a1b7a9c4cceff31f7ec009941731f7 /module/output/html.scm | |
| parent | Add profile! macro. (diff) | |
| download | calp-228d485e10f44b402843badabba4f09599f3c2a3.tar.gz calp-228d485e10f44b402843badabba4f09599f3c2a3.tar.xz | |
Change to only call get-datetime in parse.
Diffstat (limited to 'module/output/html.scm')
| -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 3b17d81b..6dc9591b 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -234,12 +234,12 @@ (make-block ev `((class - ,(when (date<? (as-date (get-datetime (attr ev 'DTSTART))) date) + ,(when (date<? (as-date (attr ev 'DTSTART)) date) " continued") ;; TODO all day events usually have the day after as DTEND. ;; So a whole day event the 6 june would have a DTEND of the ;; 7 june. - ,(when (date<? date (as-date (get-datetime (attr ev 'DTEND)))) + ,(when (date<? date (as-date (attr ev 'DTEND))) " continuing")) (style ,style)))) |