diff options
author | Arun Isaac | 2022-06-29 14:35:07 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-29 14:35:07 +0530 |
commit | 60736746f2fff10ee858e4e2dad7dfde94f35546 (patch) | |
tree | e7dbba05e733c90eca6f3c6e1018669ef41ce27a /tissue/issue.scm | |
parent | 5d710f0757b3dcef8f34ead9bba1d545f3cb0bba (diff) | |
download | tissue-60736746f2fff10ee858e4e2dad7dfde94f35546.tar.gz tissue-60736746f2fff10ee858e4e2dad7dfde94f35546.tar.lz tissue-60736746f2fff10ee858e4e2dad7dfde94f35546.zip |
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.
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) |