diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-30 16:29:49 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-30 16:29:49 +0100 |
commit | fe944d23e665edea79dd29213d44a525c72e31b1 (patch) | |
tree | 4cd55615bb762d124ffc2d9e62fccdca68eb5ca5 /config.scm | |
parent | Move date parsing to library. (diff) | |
download | rss-filter-fe944d23e665edea79dd29213d44a525c72e31b1.tar.gz rss-filter-fe944d23e665edea79dd29213d44a525c72e31b1.tar.xz |
Option handling.
Diffstat (limited to 'config.scm')
-rw-r--r-- | config.scm | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -8,6 +8,7 @@ (feed-handler) ((ice-9 i18n) :select (make-locale)) + ((texinfo string-utils) :select (escape-special-chars)) ((calp util) :select (->)) ((datetime) :select (datetime datetime->string @@ -24,7 +25,8 @@ (call-with-values (lambda () (apply values ((sxpath '(rss:title *text*)) tag))) (case-lambda (() tag) ((title . _) - (if (string-match "^\\[\\$\\]" title) + (if (string-match (escape-special-chars "^[$]" "[]$" #\\) + title) '() tag)))))))) (make-feed |