document: Add CSS classes identifying document type.

* tissue/document.scm (document->sxml): Add search-result-document
class.
* tissue/issue.scm (document->sxml): Add search-result-issue and
search-result-open-issue/search-result-closed-issue classes.

2 files changed, 5 insertions, 2 deletions

diff --git a/tissue/document.scm b/tissue/document.scm
index e9bdb65..e5ae11b 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -242,7 +242,7 @@ object representing a list of search results."
 (define-method (document->sxml (document <file-document>) mset)
   "Render DOCUMENT to SXML. MSET is the xapian MSet object representing
 a list of search results."
-  `(li (@ (class "search-result"))
+  `(li (@ (class "search-result search-result-document"))
        (a (@ (href ,(document-web-uri document)))
           ,(document-title document))
        ,@(let ((snippet (document-sxml-snippet document mset)))
diff --git a/tissue/issue.scm b/tissue/issue.scm
index 65dd7a0..2b264df 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -196,7 +196,10 @@
 (define-method (document->sxml (issue <issue>) mset)
   "Render ISSUE, an <issue> object, to SXML. MSET is the xapian MSet
 object representing a list of search results."
-  `(li (@ (class "search-result"))
+  `(li (@ (class ,(string-append "search-result search-result-issue "
+                                 (if (issue-open? issue)
+                                     "search-result-open-issue"
+                                     "search-result-closed-issue"))))
        (a (@ (href ,(document-web-uri issue)))
           ,(document-title issue))
        ,@(map (lambda (tag)