From a0876ac766f2d69a86d845b65e55c8e4879d1b4e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 1 Mar 2022 02:04:02 +0100
Subject: Replace references to calp with hnh.

---
 config.scm            | 2 +-
 main.scm              | 6 +++---
 module/rss-filter.scm | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/config.scm b/config.scm
index 9b20bcf..5fc0511 100644
--- a/config.scm
+++ b/config.scm
@@ -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)))
 
diff --git a/main.scm b/main.scm
index 276338d..ed98034 100755
--- a/main.scm
+++ b/main.scm
@@ -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)
   )
 
-- 
cgit v1.2.3