diff options
| -rw-r--r-- | tissue/issue.scm | 9 |
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 |