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 | |
| 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.
| -rw-r--r-- | tissue/document.scm | 3 | ||||
| -rw-r--r-- | tissue/issue.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tissue/document.scm b/tissue/document.scm index e5ae11b..1ee55cf 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -243,7 +243,8 @@ object representing a list of search results." "Render DOCUMENT to SXML. MSET is the xapian MSet object representing a list of search results." `(li (@ (class "search-result search-result-document")) - (a (@ (href ,(document-web-uri document))) + (a (@ (href ,(document-web-uri document)) + (class "search-result-title")) ,(document-title document)) ,@(let ((snippet (document-sxml-snippet document mset))) (if snippet 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)))) |