From 4d8f1332d3566b1d2ef3d41fbfd0f0975b058393 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 13 Jul 2022 17:56:12 +0530
Subject: issue: Quote tags with spaces instead of hyphenating them.

* tissue/issue.scm (document->sxml): Quote tags with spaces instead of
hyphenating them.
---
 tissue/issue.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 23625fa..9e2ca9c 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -183,10 +183,11 @@ object representing a list of search results."
                   `(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)))))
+                                  ;; Quote tag if it has spaces.
+                                  (string-append "tag:"
+                                                 (if (string-any #\space tag)
+                                                     (string-append "\"" tag "\"")
+                                                     tag)))))
                          (class ,(string-append "tag"
                                                 (string-append " tag-" (sanitize-string tag))
                                                 (if (not (null? (lset-intersection
-- 
cgit v1.2.3