blob: cc976472f4337b27524a74a4cc833e54c03f85af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define-module (output info)
:use-module (util))
(use-modules (ice-9 getopt-long)
(vcomponent)
(vcomponent output)
(vulgar util)
(srfi srfi-1))
(define-public (info-main calendars events args)
(format #t "~%Found ~a calendars, named:~%~{ - [~4@a] ~a~a\x1b[m~%~}~%"
(length calendars)
(concatenate
(zip (map (lambda (c) (length (children c 'VEVENT))) calendars)
(map (compose color-escape (extract 'COLOR)) calendars)
(map (extract 'NAME) calendars)))))
|
