From 3c39be96a00333e962fd7ceb3a50e475b68b2077 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 9 Jul 2022 00:36:49 +0530
Subject: issue: Hyphenate tag in search query if it has spaces.

* tissue/issue.scm (document->sxml): Hyphenate tag in search query if
it has spaces.
---
 tissue/issue.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'tissue')

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 5b34c66..2bc6b41 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -205,8 +205,13 @@ object representing a list of search results."
           ,(document-title issue))
        ,@(map (lambda (tag)
                 (let ((words (string-split tag (char-set #\- #\space))))
-                  `(a (@ (href ,(string-append "/search?query="
-                                               (uri-encode (string-append "tag:" tag))))
+                  `(a (@ (href ,(string-append
+                                 "/search?query="
+                                 (uri-encode
+                                  ;; Hyphenate tag if it has
+                                  ;; spaces. Xapian accepts hyphenated
+                                  ;; strings as exact phrases.
+                                  (string-append "tag:" (sanitize-string tag)))))
                          (class ,(string-append "tag"
                                                 (string-append " tag-" (sanitize-string tag))
                                                 (if (not (null? (lset-intersection
-- 
cgit v1.2.3