diff options
Diffstat (limited to 'module/vcomponent/datetime.scm')
| -rw-r--r-- | module/vcomponent/datetime.scm | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm index 765c065d..016eeaac 100644 --- a/module/vcomponent/datetime.scm +++ b/module/vcomponent/datetime.scm @@ -54,10 +54,24 @@ Event must have the DTSTART and DTEND attribute set." ;; starting at the time @var{start-of-day}. ;; currently the secund argument is a date, but should possibly be changed ;; to a datetime to allow for more explicit TZ handling? -(define-public (event-length/day e) - (time- - (time-min #00:00:00 (as-time (attr e 'DTEND))) - (time-max #24:00:00 (as-time (attr e 'DTSTART))))) +(define-public (event-length/day date e) + ;; TODO date= > 2 elements + (cond [(and (date= (as-date (attr e 'DTSTART)) + (as-date (attr e 'DTEND))) + (date= (as-date (attr e 'DTSTART)) + date)) + (time- (as-time (attr e 'DTEND)) + (as-time (attr e 'DTSTART)))] + ;; Starts today, end in future day + [(date= (as-date (attr e 'DTSTART)) + date) + (time- #24:00:00 (as-time (attr e 'DTSTART)))] + ;; Ends today, start earlier day + [(date= (as-date (attr e 'DTEND)) + date) + (as-time (attr e 'DTEND))] + ;; start earlier date, end later date + [else #24:00:00])) ;; 22:00 - 03:00 |