From 6e60ef900991faa1fd774597c9851ec8c5e8f253 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 May 2020 17:42:32 +0200 Subject: Remove 'info' entry point. --- module/entry-points/info.scm | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 module/entry-points/info.scm (limited to 'module/entry-points') 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))))) - - -- cgit v1.2.3