diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-20 21:39:44 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 01:53:21 +0100 |
commit | ed287bf2e7c171fc74796af541316342d55a6e3b (patch) | |
tree | bebaf0e30dfc135224f24649c62b95d5e3b98591 /vcalendar/datetime.scm | |
parent | Fix crash when day has 0 events. (diff) | |
download | calp-ed287bf2e7c171fc74796af541316342d55a6e3b.tar.gz calp-ed287bf2e7c171fc74796af541316342d55a6e3b.tar.xz |
Move time procedures from main to where they belong.
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))) |