From 6a219c59e6506ee5326822a7ced0e6cd92b7b628 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 17:52:01 +0200 Subject: Move a bunch of files into calp module. --- module/entry-points/ical.scm | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 module/entry-points/ical.scm (limited to 'module/entry-points/ical.scm') diff --git a/module/entry-points/ical.scm b/module/entry-points/ical.scm deleted file mode 100644 index 997621b2..00000000 --- a/module/entry-points/ical.scm +++ /dev/null @@ -1,31 +0,0 @@ -(define-module (entry-points ical) - :export (main) - :use-module (util) - :use-module (util options) - :use-module (output ical) - :use-module (ice-9 getopt-long) - :use-module (datetime) - ) - -(define opt-spec - '((from (value #t) (single-char #\F)) - (to (value #t) (single-char #\T) - (description "Returns all elements between these two dates.")) - (help (single-char #\h) - (description "Print this help.")))) - -(define (main args) - (define opts (getopt-long args (getopt-opt opt-spec))) - - (define start (cond [(option-ref opts 'from #f) => parse-freeform-date] - [else (start-of-month (current-date))])) - (define end (cond [(option-ref opts 'to #f) => parse-freeform-date] - ;; [else (normalize-date* (set (month start) = (+ 1)))] - [(date+ start (date month: 1))] - )) - - (when (option-ref opts 'help #f) - (print-arg-help opt-spec) - (throw 'return)) - - (print-events-in-interval start end)) -- cgit v1.2.3