diff options
| -rw-r--r-- | tissue/document.scm | 2 | ||||
| -rw-r--r-- | tissue/issue.scm | 5 |
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) |