blob: 6787f2f42bc1fe3c16945fa484a321b42f2a8be0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/guile \
-s
!#
(use-modules (ice-9 format))
(begin
;; Supurflous begin block here to make sourcing into geiser easier.
(setenv "LD_LIBRARY_PATH" (getcwd))
(load-extension "libguile-calendar" "init_calendar"))
(define v (make-calendar (cadr (command-line))))
(do ((i 0 (1+ i)))
((>= i (calendar-size v)))
(format #t "~3d | ~a~%"
i (calendar-get-attr v i "summary")))
|