diff options
Diffstat (limited to '')
-rw-r--r-- | module/entry-points/info.scm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/module/entry-points/info.scm b/module/entry-points/info.scm deleted file mode 100644 index 7bc898b2..00000000 --- a/module/entry-points/info.scm +++ /dev/null @@ -1,24 +0,0 @@ -(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))))) - - |