summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/tissue3
-rw-r--r--tissue.scm1
-rw-r--r--tissue/tissue.scm14
-rw-r--r--tissue/web/static.scm6
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?