blob: 7bc898b2f542f4d5f2792c88587589452a34e15f (
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
|
(define-module (entry-points info)
:export (main)
:use-module (util))
(use-modules (ice-9 getopt-long)
(vcomponent)
(vcomponent output)
(vulgar color)
(srfi srfi-1))
(define (main args)
(define-values (calendars events)
(load-calendars))
(format #t "~%Found ~a calendars, named:~%~{ - [~4@a] ~a~a\x1b[m~%~}~%"
(length calendars)
(concatenate
(zip (map (lambda (c) (length (filter (lambda (e) (eq? 'VEVENT (type e)))
(children c))))
calendars)
(map (compose color-escape (extract 'COLOR)) calendars)
(map (extract 'NAME) calendars)))))
|