1 files changed, 24 insertions, 0 deletions
diff --git a/module/entry-points/info.scm b/module/entry-points/info.scm
new file mode 100644
index 00000000..7bc898b2
--- /dev/null
+++ b/module/entry-points/info.scm
@@ -0,0 +1,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)))))
+
+