diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-02 23:13:41 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-02 23:13:41 +0100 |
commit | 9a6586a0a33e97cdee8cb417556f033b9c6b93a0 (patch) | |
tree | ae40aca66ff9a12c785ff122f3c92168f89ddd66 /main.scm | |
parent | Add print-vcomponent procedure. (diff) | |
download | calp-9a6586a0a33e97cdee8cb417556f033b9c6b93a0.tar.gz calp-9a6586a0a33e97cdee8cb417556f033b9c6b93a0.tar.xz |
Move datetime stuff to better suited files.
Diffstat (limited to 'main.scm')
-rwxr-xr-x | main.scm | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -6,8 +6,10 @@ (use-modules (srfi srfi-1) (srfi srfi-19) + (srfi srfi-19 util) (srfi srfi-26) (vcalendar) + (vcalendar datetime) (code)) ;;; ------------------------------------------------------------ @@ -16,14 +18,7 @@ ;;; Parse all start times into scheme date objects. (for-each-in (children cal 'VEVENT) (cut transform-attr! <> "DTSTART" - (lambda (start) - (localize-date - (string->date - start - (case (string-length start) - ((8) "~Y~m~d") - ((15) "~Y~m~dT~H~M~S") - ((16) "~Y~m~dT~H~M~S~z")))))))) + parse-datetime))) (define (search cal term) (cdr (let ((events (filter (lambda (ev) (eq? 'VEVENT (type ev))) |