diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-08-03 19:33:36 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-08 21:44:12 +0200 |
| commit | 33bfd809eab1574c9c2d819ea06e47f994054bd2 (patch) | |
| tree | bca178aa349d6e622732453cf961355ca0e89522 /module/output/none.scm | |
| parent | Add --width flag to format. (diff) | |
| download | calp-33bfd809eab1574c9c2d819ea06e47f994054bd2.tar.gz calp-33bfd809eab1574c9c2d819ea06e47f994054bd2.tar.xz | |
Remove 'none' output.
This dummy output was earlier used to force a compilation, but since I
have (hopefully) figured out how to actually compile stuff it's no
longer necesarry.
Diffstat (limited to '')
| -rw-r--r-- | module/output/none.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/module/output/none.scm b/module/output/none.scm deleted file mode 100644 index e6fedd2d..00000000 --- a/module/output/none.scm +++ /dev/null @@ -1,16 +0,0 @@ -(define-module (output none) - #:use-module (vcomponent group) - #:use-module (srfi srfi-41) - #:use-module (srfi srfi-19) - #:use-module (srfi srfi-19 setters) - #:use-module (srfi srfi-19 util) - #:use-module (util) - #:export (none-main)) - -(define (none-main calendars events args) - (define date (drop-time (current-date))) - (let ((groups (get-groups-between (group-stream events) - date date))) - (unless (stream-null? groups) - (group->event-list - (stream-car groups))))) |