diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 17:42:32 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 17:42:32 +0200 |
| commit | 6e60ef900991faa1fd774597c9851ec8c5e8f253 (patch) | |
| tree | 11a59f1a446249f3f3addb8456687cd68ba7be9f /module/entry-points | |
| parent | Slightly change main --help. (diff) | |
| download | calp-6e60ef900991faa1fd774597c9851ec8c5e8f253.tar.gz calp-6e60ef900991faa1fd774597c9851ec8c5e8f253.tar.xz | |
Remove 'info' entry point.
Diffstat (limited to 'module/entry-points')
| -rw-r--r-- | module/entry-points/info.scm | 24 |
1 files changed, 0 insertions, 24 deletions
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))))) - - |