summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/issue.scm9
1 files changed, 7 insertions, 2 deletions
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