summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2021-12-30 18:19:22 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2021-12-30 18:21:54 +0100
commit8860f720427d3d2f262989dbcdb9357e3e4e08c2 (patch)
tree8b3ff2563cef831ec6a043a5d8ed01692d16fed6
parentAdd makefile. (diff)
downloadrss-filter-8860f720427d3d2f262989dbcdb9357e3e4e08c2.tar.gz
rss-filter-8860f720427d3d2f262989dbcdb9357e3e4e08c2.tar.xz
Fix minor problems.
-rw-r--r--config.scm2
-rwxr-xr-xmain.scm7
2 files changed, 5 insertions, 4 deletions
diff --git a/config.scm b/config.scm
index e6be72d..9b20bcf 100644
--- a/config.scm
+++ b/config.scm
@@ -5,7 +5,7 @@
(sxml xpath)
(ice-9 regex)
- (feed-handler)
+ (rss-filter feed-handler)
((ice-9 i18n) :select (make-locale))
((texinfo string-utils) :select (escape-special-chars))
diff --git a/main.scm b/main.scm
index 0c1e1c3..276338d 100755
--- a/main.scm
+++ b/main.scm
@@ -37,9 +37,10 @@
(define output-directory (option-ref opts 'output "."))
(define config-dir
- (option-ref opts 'config-dir
- (path-append (xdg-config-home)
- "rss-filter")))
+ (or ; or for lazy evaluation
+ (option-ref opts 'config-dir #f)
+ (path-append (xdg-config-home)
+ "rss-filter")))
(define quiet? (option-ref opts 'quiet #f))