From fe944d23e665edea79dd29213d44a525c72e31b1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 30 Dec 2021 16:29:49 +0100
Subject: Option handling.

---
 config.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'config.scm')

diff --git a/config.scm b/config.scm
index 888f5c8..e6be72d 100644
--- a/config.scm
+++ b/config.scm
@@ -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
-- 
cgit v1.2.3