diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:04:04 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:04:04 +0200 |
| commit | 2f0529fdec94f999d903add6e364770e6ede4613 (patch) | |
| tree | 72aef0dec45924d9caf8e8e2235b1f45f7ec03bb | |
| parent | Change CSS date markers from id to class. (diff) | |
| download | calp-2f0529fdec94f999d903add6e364770e6ede4613.tar.gz calp-2f0529fdec94f999d903add6e364770e6ede4613.tar.xz | |
Rename event-in? => event-contains?.
| -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))) |