diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-01 02:04:02 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-01 02:04:02 +0100 |
commit | a0876ac766f2d69a86d845b65e55c8e4879d1b4e (patch) | |
tree | 696e1b5224c05ef8cdd2a61da33c41c9643ab13a | |
parent | Insert error messages into rss feed. (diff) | |
download | rss-filter-a0876ac766f2d69a86d845b65e55c8e4879d1b4e.tar.gz rss-filter-a0876ac766f2d69a86d845b65e55c8e4879d1b4e.tar.xz |
Replace references to calp with hnh.
-rw-r--r-- | config.scm | 2 | ||||
-rwxr-xr-x | main.scm | 6 | ||||
-rw-r--r-- | module/rss-filter.scm | 2 |
3 files changed, 5 insertions, 5 deletions
@@ -10,7 +10,7 @@ ((ice-9 i18n) :select (make-locale)) ((texinfo string-utils) :select (escape-special-chars)) - ((calp util) :select (->)) + ((hnh util) :select (->)) ((datetime) :select (datetime datetime->string string->datetime))) @@ -5,7 +5,7 @@ (add-to-load-path "/home/hugo/code/calp/module") (use-modules - ((calp util) :select (path-append)) + ((hnh util) :select (path-append)) (ice-9 getopt-long) ((xdg basedir) :prefix xdg-) ((rss-filter) :select (handle-feed))) @@ -33,7 +33,7 @@ (define (main args) - (define opts (getopt-long args ((@ (calp util options) getopt-opt) option-spec))) + (define opts (getopt-long args ((@ (hnh util options) getopt-opt) option-spec))) (define output-directory (option-ref opts 'output ".")) (define config-dir @@ -45,7 +45,7 @@ (define quiet? (option-ref opts 'quiet #f)) (when (option-ref opts 'help #f) - ((@ (calp util options) print-arg-help) option-spec) + ((@ (hnh util options) print-arg-help) option-spec) (exit 0)) (unless (file-exists? config-dir) diff --git a/module/rss-filter.scm b/module/rss-filter.scm index 1138744..513b51b 100644 --- a/module/rss-filter.scm +++ b/module/rss-filter.scm @@ -9,7 +9,7 @@ :use-module (sxml xpath) :use-module (sxml namespace) - :use-module ((calp util) :select (path-append)) + :use-module ((hnh util) :select (path-append)) :use-module (datetime) ) |