From 92b2f429a06ed9b052baff5e27f012397b338f6a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 23 Dec 2019 23:40:14 +0100 Subject: Rework program initialization. Old init setup had the fancy idea to parse all files before anything could be done with them. This however led to problems when a part of the program which didn't care for the calendar files (such as text formatting). It also made testing performance almost impossible since to much code was run before I had a chance to init statprof. --- module/output/info.scm | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 module/output/info.scm (limited to 'module/output/info.scm') diff --git a/module/output/info.scm b/module/output/info.scm deleted file mode 100644 index eba0979c..00000000 --- a/module/output/info.scm +++ /dev/null @@ -1,20 +0,0 @@ -(define-module (output info) - :use-module (util)) - -(use-modules (ice-9 getopt-long) - (vcomponent) - (vcomponent output) - (vulgar color) - (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 (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