diff options
Diffstat (limited to 'vcalendar/datetime.scm')
-rw-r--r-- | vcalendar/datetime.scm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/vcalendar/datetime.scm b/vcalendar/datetime.scm deleted file mode 100644 index 360b8348..00000000 --- a/vcalendar/datetime.scm +++ /dev/null @@ -1,34 +0,0 @@ -(define-module (vcalendar datetime) - #:use-module (vcalendar) - #:use-module (srfi srfi-19) - #:use-module (srfi srfi-19 util) - - #: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 - (case (string-length dtime) - ((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))) |