diff options
Diffstat (limited to 'module')
-rwxr-xr-x | module/fetch.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/datetime.scm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/module/fetch.scm b/module/fetch.scm index b01329a8..4497fa98 100755 --- a/module/fetch.scm +++ b/module/fetch.scm @@ -25,7 +25,7 @@ (filter-children! (lambda (ev) (and (eq? 'VEVENT (type ev)) - (event-in? ev (date->time-utc (string->date "2019-04-03" "~Y-~m-~d"))))) + (event-contains? ev (date->time-utc (string->date "2019-04-03" "~Y-~m-~d"))))) cal) (serialize-vcomponent cal) diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm index e427b088..4e3cfbe6 100644 --- a/module/vcomponent/datetime.scm +++ b/module/vcomponent/datetime.scm @@ -7,7 +7,7 @@ #:export (parse-datetime event-overlaps? overlapping? - event-in? + event-contains? ev-time<?) ) @@ -33,7 +33,7 @@ Event must have the DTSTART and DTEND attribute set." (attr event-b 'DTSTART) (attr event-b 'DTEND))) -(define (event-in? ev time) +(define (event-contains? ev time) "Does event overlap the date that contains time." (let* ((date (time-utc->date time)) (start (date->time-utc (drop-time date))) |