From 4e4c3eb23a65d661d0715988cd109da55d08e761 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 25 Dec 2022 16:17:14 +0000
Subject: 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.
---
 tissue/tissue.scm     | 14 +++-----------
 tissue/web/static.scm |  6 +-----
 2 files changed, 4 insertions(+), 16 deletions(-)

(limited to 'tissue')

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?
-- 
cgit v1.2.3