blob: 4de59236397cfb5bfcb535527db3e564c61d761b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/guile \
-s
!#
(add-to-load-path (dirname (current-filename)))
(use-modules (srfi srfi-19)
(srfi srfi-26)
(vcalendar))
(define cal (make-vcomponent "testcal/d1-b.ics"))
(for-each (cut transform-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)
|