diff options
Diffstat (limited to 'tissue/issue.scm')
-rw-r--r-- | tissue/issue.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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) |