diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 02:03:55 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 02:03:55 +0100 |
commit | 3d7e1cf403961d03bb08af1332c8226c0b0cef6d (patch) | |
tree | 2398875b38fca55c8e2e045e9e801efa1c93015b /module/entry-points | |
parent | Documentation. (diff) | |
download | calp-3d7e1cf403961d03bb08af1332c8226c0b0cef6d.tar.gz calp-3d7e1cf403961d03bb08af1332c8226c0b0cef6d.tar.xz |
Freed datetime from its srfi-19 prison.
Diffstat (limited to 'module/entry-points')
-rw-r--r-- | module/entry-points/html.scm | 4 | ||||
-rw-r--r-- | module/entry-points/ical.scm | 4 | ||||
-rw-r--r-- | module/entry-points/server.scm | 6 | ||||
-rw-r--r-- | module/entry-points/terminal.scm | 4 |
4 files changed, 8 insertions, 10 deletions
diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm index eaf6cd62..2486fc52 100644 --- a/module/entry-points/html.scm +++ b/module/entry-points/html.scm @@ -3,8 +3,8 @@ :use-module (output html) :use-module (util) :use-module (vcomponent) - :use-module (srfi srfi-19 alt) - :use-module (srfi srfi-19 alt util) + :use-module (datetime) + :use-module (datetime util) :use-module (ice-9 getopt-long) :use-module (parameters) diff --git a/module/entry-points/ical.scm b/module/entry-points/ical.scm index 375613a3..9f7457c3 100644 --- a/module/entry-points/ical.scm +++ b/module/entry-points/ical.scm @@ -5,8 +5,8 @@ :use-module ((vcomponent) :select (load-calendars*)) :use-module ((parameters) :select (calendar-files)) :use-module (ice-9 getopt-long) - :use-module (srfi srfi-19 alt) - :use-module (srfi srfi-19 alt util) + :use-module (datetime) + :use-module (datetime util) ) (define opt-spec diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 0b40a6ff..c072d18b 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -11,10 +11,8 @@ iconv regex #| regex here due to bad macros |# )) (srfi (srfi-1 srfi-88))) -(use-modules (srfi srfi-19 alt) - (srfi srfi-19 alt util)) - -;; (use-modules (srfi srfi-19 util)) +(use-modules (datetime) + (datetime util)) (define (file-extension name) (car (last-pair (string-split name #\.)))) diff --git a/module/entry-points/terminal.scm b/module/entry-points/terminal.scm index e53a3d05..09ae8004 100644 --- a/module/entry-points/terminal.scm +++ b/module/entry-points/terminal.scm @@ -3,8 +3,8 @@ :use-module (output terminal) :use-module (vcomponent) :use-module (ice-9 getopt-long) - :use-module (srfi srfi-19 alt) - :use-module (srfi srfi-19 alt util) + :use-module (datetime) + :use-module (datetime util) :use-module (parameters) :use-module (vulgar) ) |