diff options
| -rw-r--r-- | tissue/document.scm | 3 | ||||
| -rw-r--r-- | tissue/issue.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tissue/document.scm b/tissue/document.scm index e5ae11b..1ee55cf 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -243,7 +243,8 @@ object representing a list of search results." "Render DOCUMENT to SXML. MSET is the xapian MSet object representing a list of search results." `(li (@ (class "search-result search-result-document")) - (a (@ (href ,(document-web-uri document))) + (a (@ (href ,(document-web-uri document)) + (class "search-result-title")) ,(document-title document)) ,@(let ((snippet (document-sxml-snippet document mset))) (if snippet diff --git a/tissue/issue.scm b/tissue/issue.scm index 2b264df..6995742 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -200,7 +200,8 @@ object representing a list of search results." (if (issue-open? issue) "search-result-open-issue" "search-result-closed-issue")))) - (a (@ (href ,(document-web-uri issue))) + (a (@ (href ,(document-web-uri issue)) + (class "search-result-title")) ,(document-title issue)) ,@(map (lambda (tag) (let ((words (string-split tag (char-set #\- #\space)))) |