diff options
| author | Arun Isaac | 2022-12-25 16:17:14 +0000 |
|---|---|---|
| committer | Arun Isaac | 2022-12-25 23:33:04 +0000 |
| commit | 4e4c3eb23a65d661d0715988cd109da55d08e761 (patch) | |
| tree | be046ded03546953ebcc985e946d670b5fc70ea7 /tissue | |
| parent | 0b548398336ba0922c9efe4177528563e4838b4f (diff) | |
| download | tissue-4e4c3eb23a65d661d0715988cd109da55d08e761.tar.gz tissue-4e4c3eb23a65d661d0715988cd109da55d08e761.tar.lz tissue-4e4c3eb23a65d661d0715988cd109da55d08e761.zip | |
tissue: Deprecate #:project configuration parameter.
The project name is not used anywhere now. If it is required, it
should be passed through the lexical context of closures in the tissue
configuration object.
* tissue/tissue.scm (<tissue-configuration>)[project]: Delete field.
(tissue-configuration-project): Delete function.
(tissue-configuration): Remove project argument.
* tissue.scm (tissue-configuration)[#:project]: Delete parameter.
* tissue/web/static.scm (%project-name): Delete parameter.
* bin/tissue (pull): Do not parameterize %project-name.
Diffstat (limited to 'tissue')
| -rw-r--r-- | tissue/tissue.scm | 14 | ||||
| -rw-r--r-- | tissue/web/static.scm | 6 |
2 files changed, 4 insertions, 16 deletions
diff --git a/tissue/tissue.scm b/tissue/tissue.scm index b0c118a..9180467 100644 --- a/tissue/tissue.scm +++ b/tissue/tissue.scm @@ -25,7 +25,6 @@ #:use-module (tissue web themes default) #:export (tissue-configuration tissue-configuration? - tissue-configuration-project tissue-configuration-aliases tissue-configuration-indexed-documents tissue-configuration-web-search-renderer @@ -33,18 +32,14 @@ gemtext-files-in-directory)) (define-record-type <tissue-configuration> - (make-tissue-configuration project aliases indexed-documents + (make-tissue-configuration aliases indexed-documents web-search-renderer web-files) tissue-configuration? - (project delayed-tissue-configuration-project) (aliases delayed-tissue-configuration-aliases) (indexed-documents delayed-tissue-configuration-indexed-documents) (web-search-renderer delayed-tissue-configuration-web-search-renderer) (web-files delayed-tissue-configuration-web-files)) -(define tissue-configuration-project - (compose force delayed-tissue-configuration-project)) - (define tissue-configuration-aliases (compose force delayed-tissue-configuration-aliases)) @@ -97,15 +92,12 @@ directory they are in." #`(delay #,arg))) #'(args :::))))))))))))) -(define-lazy (tissue-configuration #:key project (aliases '()) (indexed-documents '()) +(define-lazy (tissue-configuration #:key (aliases '()) (indexed-documents '()) (web-search-renderer (default-theme)) (web-files '())) "Construct a <tissue-configuration> object. All arguments are evaluated lazily. -@var{project} is the name of the project. It is used in the title of -the generated web pages, among other places. - @var{aliases} is a list of aliases used to refer to authors in the repository. Each element is in turn a list of aliases an author goes by, the first of which is the canonical name of that author. @@ -121,5 +113,5 @@ return the rendered SXML. @var{web-files} is a list of @code{<file>} objects representing files to be written to the web output." - (make-tissue-configuration project aliases indexed-documents + (make-tissue-configuration aliases indexed-documents web-search-renderer web-files)) diff --git a/tissue/web/static.scm b/tissue/web/static.scm index 587799d..ffe7c8a 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -33,8 +33,7 @@ #:use-module (tissue git) #:use-module (tissue issue) #:use-module (tissue utils) - #:export (%project-name - file + #:export (file file? file-name file-writer @@ -46,9 +45,6 @@ skribe-exporter build-website)) -(define %project-name - (make-parameter #f)) - (define-record-type <file> (file name writer) file? |