diff options
Diffstat (limited to 'vcalendar/datetime.scm')
-rw-r--r-- | vcalendar/datetime.scm | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/vcalendar/datetime.scm b/vcalendar/datetime.scm index 9f47f5c3..360b8348 100644 --- a/vcalendar/datetime.scm +++ b/vcalendar/datetime.scm @@ -1,14 +1,16 @@ (define-module (vcalendar datetime) + #:use-module (vcalendar) #:use-module (srfi srfi-19) #:use-module (srfi srfi-19 util) - #:export (parse-datetime) + #:export (parse-datetime + event-overlaps? + event-in?) ) (define (parse-datetime dtime) "Parse the given date[time] string into a date object." ;; localize-date - (date->time-utc (string->date dtime @@ -16,3 +18,17 @@ ((8) "~Y~m~d") ((15) "~Y~m~dT~H~M~S") ((16) "~Y~m~dT~H~M~S~z"))))) + +(define (event-overlaps? event begin end) + "Returns if the event overlaps the timespan. +Event must have the DTSTART and DTEND attribute set." + (timespan-overlaps? (attr event 'DTSTART) + (attr event 'DTEND) + begin end)) + +(define (event-in? ev time) + "Does event overlap the date that contains time." + (let* ((date (time-utc->date time)) + (start (date->time-utc (drop-time date))) + (end (add-duration start (make-duration (* 60 60 24))))) + (event-overlaps? ev start end))) |