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 /module/vcomponent/datetime.scm | |
| parent | Change CSS date markers from id to class. (diff) | |
| download | calp-2f0529fdec94f999d903add6e364770e6ede4613.tar.gz calp-2f0529fdec94f999d903add6e364770e6ede4613.tar.xz | |
Rename event-in? => event-contains?.
Diffstat (limited to 'module/vcomponent/datetime.scm')
| -rw-r--r-- | module/vcomponent/datetime.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |