diff options
Diffstat (limited to 'module/output/info.scm')
-rw-r--r-- | module/output/info.scm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/module/output/info.scm b/module/output/info.scm deleted file mode 100644 index eba0979c..00000000 --- a/module/output/info.scm +++ /dev/null @@ -1,20 +0,0 @@ -(define-module (output info) - :use-module (util)) - -(use-modules (ice-9 getopt-long) - (vcomponent) - (vcomponent output) - (vulgar color) - (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 (filter (lambda (e) (eq? 'VEVENT (type e))) - (children c)))) - calendars) - (map (compose color-escape (extract 'COLOR)) calendars) - (map (extract 'NAME) calendars))))) - - |