diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:39:32 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:39:32 +0200 |
commit | b36470814899915cf1846f15aec0098754cf06ed (patch) | |
tree | e053344c22ca78a4d9249cd04f6d4091491b0241 /module/vcalendar/datetime.scm | |
parent | Add catch-multiple. (diff) | |
download | calp-b36470814899915cf1846f15aec0098754cf06ed.tar.gz calp-b36470814899915cf1846f15aec0098754cf06ed.tar.xz |
Change parse-datetime back to single return.
Diffstat (limited to 'module/vcalendar/datetime.scm')
-rw-r--r-- | module/vcalendar/datetime.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/module/vcalendar/datetime.scm b/module/vcalendar/datetime.scm index 9b1cc82d..b27ce2b0 100644 --- a/module/vcalendar/datetime.scm +++ b/module/vcalendar/datetime.scm @@ -13,13 +13,11 @@ ;;; date time pointer (define (parse-datetime dtime) "Parse the given date[time] string into a date object." - (let* ((str type (case (string-length dtime) - ((8) (values "~Y~m~d" 'all-day)) ; All day - ((15) (values "~Y~m~dT~H~M~S" 'local)) ; "local" or TZID-param - ((16) (values "~Y~m~dT~H~M~S~z" 'utc)) ; UTC-time - )) - (date (string->date dtime str))) - (values date type))) + (string->date + dtime (case (string-length dtime) + ((8) "~Y~m~d") ; All day + ((15) "~Y~m~dT~H~M~S") ; "local" or TZID-param + ((16) "~Y~m~dT~H~M~S~z")))) ; UTC-time (define (event-overlaps? event begin end) "Returns if the event overlaps the timespan. |