diff options
author | Arun Isaac | 2022-06-29 14:36:26 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-29 14:36:26 +0530 |
commit | 54ed4e993c6c3fa5f6859b2adbb5833c11ba12a7 (patch) | |
tree | bce984fba6d93f9401f49035625ebe5893ef8a08 /tissue/issue.scm | |
parent | 60736746f2fff10ee858e4e2dad7dfde94f35546 (diff) | |
download | tissue-54ed4e993c6c3fa5f6859b2adbb5833c11ba12a7.tar.gz tissue-54ed4e993c6c3fa5f6859b2adbb5833c11ba12a7.tar.lz tissue-54ed4e993c6c3fa5f6859b2adbb5833c11ba12a7.zip |
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.
Diffstat (limited to 'tissue/issue.scm')
-rw-r--r-- | tissue/issue.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |