diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-16 17:21:35 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-16 19:05:21 +0100 |
commit | 30de9b8bf04430ba69c3cbd50a3dada265c2c902 (patch) | |
tree | 3877a36c8e0f2807cabe2a9744634405d6a6e899 /module | |
parent | Add count parameter to chunked html. (diff) | |
download | calp-30de9b8bf04430ba69c3cbd50a3dada265c2c902.tar.gz calp-30de9b8bf04430ba69c3cbd50a3dada265c2c902.tar.xz |
Minor cleanup.
Diffstat (limited to '')
-rw-r--r-- | module/entry-points/html.scm | 2 | ||||
-rw-r--r-- | module/output/html.scm | 8 |
2 files changed, 4 insertions, 6 deletions
diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm index a5cd7303..eaf6cd62 100644 --- a/module/entry-points/html.scm +++ b/module/entry-points/html.scm @@ -32,8 +32,6 @@ calendar-files: (cond [(option-ref opts 'file #f) => list] [else (calendar-files)]) )) - ((@ (srfi srfi-41) stream->list) events) - (if (option-ref opts 'chunked #f) (html-chunked-main count calendars events start) (html-generate calendars events start end))) diff --git a/module/output/html.scm b/module/output/html.scm index ba09c0ed..39172318 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -83,10 +83,7 @@ (if (date= date (as-date (attr ev 'DTSTART))) (* 100/24 (time->decimal-hour - (as-time (attr ev 'DTSTART)) - #; - (time- (as-time (attr ev 'DTSTART)) - (start-of-day* (attr ev 'DTSTART))))) + (as-time (attr ev 'DTSTART)))) 0) ;; height @@ -97,6 +94,9 @@ (div (@ (class "event CAL_" ,(html-attr (attr (parent ev) 'NAME)) ,(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 (attr ev 'DTEND))) " continuing")) (style ,style)) |