From 5b69ff97729b7953768e7c76f70ee37b8f9d0a1f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Wed, 29 May 2019 18:13:41 +0200
Subject: Add info output.

---
 module/output/info.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 module/output/info.scm

diff --git a/module/output/info.scm b/module/output/info.scm
new file mode 100644
index 00000000..376b125f
--- /dev/null
+++ b/module/output/info.scm
@@ -0,0 +1,18 @@
+(define-module (output info)
+  :use-module (util))
+
+(use-modules (ice-9 getopt-long)
+             (vcomponent)
+             (vcomponent output)
+             (terminal 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)))))
+
+
-- 
cgit v1.2.3