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/document.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/document.scm')
-rw-r--r-- | tissue/document.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tissue/document.scm b/tissue/document.scm index 65a68b6..38270a5 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -43,8 +43,7 @@ document-snippet-source-text document-snippet print - document-sxml-snippet - document->sxml)) + document-sxml-snippet)) (define (slot-set object slot-name value) "Set @var{slot-name} in @var{object} to @var{value}. This is a purely @@ -138,7 +137,6 @@ mutate @var{object}." (define-generic document-text) (define-generic document-recency-date) (define-generic print) -(define-generic document->sxml) (define-method (document-type (document <document>)) (string-trim-both (symbol->string (class-name (class-of document))) |