blob: efc4e897eac95a64823ceb9b9d760fe0fc455dba (
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
|
#!/usr/bin/guile \
-e main -s
!#
(add-to-load-path (dirname (current-filename)))
(use-modules (parse))
(define (main args)
;; (define *path* "/home/hugo/.local/var/cal/STABEN/599ca4a2f8eda362aaac598c999321dcc8004780a1d5cef36019c7e421b70b08.ics")
;; (define root (parse-cal-path *path*))
;; (format #t "root = ~a~%" root)
(format (current-error-port) "Parsing ~s~%" (cadr args))
(let ((cal (read-vcalendar (cadr args))))
(format #t "cal = ~a~%" cal)
(format (current-error-port) "~a events~%" (length cal)))
)
|