From 54ed4e993c6c3fa5f6859b2adbb5833c11ba12a7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 14:36:26 +0530
Subject: document: Add search result title CSS class.

* tissue/document.scm (document->sxml): Add search result title CSS
class.
* tissue/issue.scm (document->sxml): Add search result title CSS
class.
---
 tissue/document.scm | 3 ++-
 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))))
-- 
cgit v1.2.3