diff options
| -rwxr-xr-x | bin/tissue | 3 | ||||
| -rw-r--r-- | tissue.scm | 1 | ||||
| -rw-r--r-- | tissue/tissue.scm | 14 | ||||
| -rw-r--r-- | tissue/web/static.scm | 6 |
4 files changed, 5 insertions, 19 deletions
@@ -402,8 +402,7 @@ HOSTNAME." "Cloned upstream repository.~%") repository))))) (let ((config (load-config))) - (parameterize ((%aliases (tissue-configuration-aliases config)) - (%project-name (tissue-configuration-project config))) + (parameterize ((%aliases (tissue-configuration-aliases config))) ;; Index. (let ((xapian-directory "xapian")) (index xapian-directory) @@ -7,7 +7,6 @@ (html-engine #:css %css)) (tissue-configuration - #:project "tissue" #:indexed-documents (append (map (lambda (filename) (slot-set (read-gemtext-issue filename) 'web-uri 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? |