diff options
author | Arun Isaac | 2022-12-24 23:38:55 +0000 |
---|---|---|
committer | Arun Isaac | 2022-12-25 23:32:15 +0000 |
commit | 6858a6b3d1236bbffaf32376699c3e193ffad324 (patch) | |
tree | df2aed6d8f31d2a46cc3303c9887f444cb3a9d0a /tissue/commit.scm | |
parent | cfc072a57916c99d8304d6f478acd6860cb49d10 (diff) | |
download | tissue-6858a6b3d1236bbffaf32376699c3e193ffad324.tar.gz tissue-6858a6b3d1236bbffaf32376699c3e193ffad324.tar.lz tissue-6858a6b3d1236bbffaf32376699c3e193ffad324.zip |
web: Implement themes for the search page.
We factor out all display related code to a theming module, and
support powerful user customization of the theme thanks to generic
functions.
* tissue/commit.scm (document->sxml): Move to (tissue web themes
default).
* tissue/document.scm (document->sxml): Move to (tissue web themes
default).
* tissue/file-document.scm (document->sxml): Move to (tissue web
themes default).
* tissue/issue.scm (sanitize-string, document->sxml): Move to (tissue
web themes default).
* tissue/tissue.scm: Import (tissue web themes default).
(<tissue-configuration>)[web-search-renderer]: New field.
(tissue-configuration-web-search-renderer): New function.
(tissue-configuration): Accept web-search-renderer argument.
* tissue/web/server.scm: Import (oop goops) and (tissue web
themes). Do not import (tissue document).
(%css, make-search-page, search-handler): Move to (tissue web themes
default).
* tissue/web/themes.scm, tissue/web/themes/default.scm: New files.
* Makefile (sources): Add $(top_level_module_dir)/web/themes/*.scm.
Diffstat (limited to 'tissue/commit.scm')
-rw-r--r-- | tissue/commit.scm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/tissue/commit.scm b/tissue/commit.scm index 3dfd45f..e08f5a6 100644 --- a/tissue/commit.scm +++ b/tissue/commit.scm @@ -90,26 +90,6 @@ search results." (newline port) (newline port)))) -(define-method (document->sxml (commit <commit>) mset) - "Render COMMIT, a <commit> object, to SXML. MSET is the xapian MSet -object representing a list of search results." - `(li (@ (class ,(string-append "search-result search-result-commit"))) - (a (@ (href ,(document-web-uri commit)) - (class "search-result-title")) - ,(document-title commit)) - (div (@ (class "search-result-metadata")) - (span (@ (class ,(string-append "document-type commit-document-type"))) - "commit") - ,(string-append - (format #f " authored ~a by ~a" - (human-date-string (doc:commit-author-date commit)) - (doc:commit-author commit)))) - ,@(let ((snippet (document-sxml-snippet commit mset))) - (if snippet - (list `(div (@ (class "search-result-snippet")) - ,@snippet)) - (list))))) - (define (repository-commits repository) "Return a list of <commit> objects representing commits in REPOSITORY." |