diff options
Diffstat (limited to 'code.scm')
-rwxr-xr-x | code.scm | 26 |
1 files changed, 5 insertions, 21 deletions
@@ -2,30 +2,14 @@ -s !# -(begin - ;; Supurflous begin block here to make sourcing into geiser easier. - (setenv "LD_LIBRARY_PATH" (getcwd)) - (load-extension "libguile-calendar" "init_lib")) - -(define make-vcomponent %vcomponent-make) -(define children %vcomponent-children) -(define set-attr! %vcomponent-set-attribute!) -(define get-attr %vcomponent-get-attribute) - -(define root (make-vcomponent "testcal/d1-b.ics")) -(define cal (car (children root))) - -;; TODO flatten all calendars into root - +(add-to-load-path (dirname (current-filename))) (use-modules (srfi srfi-19) - (srfi srfi-26)) + (srfi srfi-26) + (vcalendar)) -(define (mutate-attr! ev field transformer) - (set-attr! ev field - (transformer - (get-attr ev field)))) +(define cal (make-vcomponent "testcal/d1-b.ics")) -(for-each (cut mutate-attr! <> "DTSTART" +(for-each (cut transform-attr! <> "DTSTART" (cut string->date <> "~Y~m~dT~H~M~S")) (children cal)) |