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.

4 files changed, 5 insertions, 19 deletions

diff --git a/bin/tissue b/bin/tissue
index c3f5b24..d611152 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -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)
diff --git a/tissue.scm b/tissue.scm
index dc525ca..a922eb3 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -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?