blob: 5ad6ad6cd47c5eb4dffbd843602fd14531b2cb83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/guile \
-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
(use-modules (srfi srfi-19)
(srfi srfi-26))
(define (mutate-attr! ev field transformer)
(set-attr! ev field
(transformer
(get-attr ev field))))
(for-each (cut mutate-attr! <> "DTSTART"
(cut string->date <> "~Y~m~dT~H~M~S"))
(children cal))
(display (get-attr (car (children cal))
"DTSTART"))
(newline)
(display (get-attr (car (children cal))
"DTSTART"))
(newline)
|
