From 6e60ef900991faa1fd774597c9851ec8c5e8f253 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 4 May 2020 17:42:32 +0200
Subject: Remove 'info' entry point.

---
 module/entry-points/info.scm | 24 ------------------------
 module/main.scm              |  6 +-----
 2 files changed, 1 insertion(+), 29 deletions(-)
 delete mode 100644 module/entry-points/info.scm

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)))))
-
-
diff --git a/module/main.scm b/module/main.scm
index c4cbc5f2..f8dca2de 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -22,7 +22,6 @@
              ((entry-points terminal)  :prefix  terminal-)
              ((entry-points import)    :prefix    import-)
              ((entry-points text)      :prefix      text-)
-             ((entry-points info)      :prefix      info-)
              ((entry-points ical)      :prefix      ical-)
              ((entry-points benchmark) :prefix benchmark-)
 
@@ -70,13 +69,11 @@
     (p (b "text") " formats and justifies what it's given on standard input, "
        "and writes it to standard output. Similar to this text.")
 
-    (p (b "info") " does something?")
-
     (p (b "ical") " loads the calendar database, and imideately "
        "reserializes it back into ICAL format. "
        "Useful for merging calendars.")
 
-    (p (b "benchmark") " does something else?")
+    (p (b "benchmark") " does something?")
 
     (p (b "server") " starts an HTTP server which dynamicly loads and displays event. The "
        (i "/month/{date}.html") " & " (i "/week/{date}.html") " runs the same output code as "
@@ -125,7 +122,6 @@
        ((term)   terminal-main)
        ((import)   import-main)
        ((text)       text-main)
-       ((info)       info-main)
        ((ical)       ical-main)
        ((server)   server-main)
        ((benchmark) benchmark-main)
-- 
cgit v1.2.3