aboutsummaryrefslogtreecommitdiff
path: root/module/entry-points/info.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/entry-points/info.scm')
-rw-r--r--module/entry-points/info.scm24
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)))))
-
-