From 0b548398336ba0922c9efe4177528563e4838b4f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 25 Dec 2022 16:11:38 +0000
Subject: tissue: Deprecate #:web-css configuration parameter.

CSS is now specified exclusively through the lexical context of
closures in the tissue configuration object.

* tissue.scm: Use (tissue web themes default).
(%css, %engine): New variables.
(tissue-configuration)[#:web-css]: Delete parameter.
[#:web-search-renderer]: Pass %css to default theme.
[#:web-files]: Pass %engine to gemtext-exporter and skribe-exporter.
* tissue/tissue.scm (<tissue-configuration>)[web-css]: Delete field.
(tissue-configuration-web-css): Delete function.
(tissue-configuration): Remove web-css argument.
---
 tissue.scm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'tissue.scm')

diff --git a/tissue.scm b/tissue.scm
index da88795..dc525ca 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -1,3 +1,11 @@
+(use-modules (tissue web themes default))
+
+(define %css
+  "/style.css")
+
+(define %engine
+  (html-engine #:css %css))
+
 (tissue-configuration
  #:project "tissue"
  #:indexed-documents (append (map (lambda (filename)
@@ -11,13 +19,13 @@
                                               (string-append "https://git.systemreboot.net/tissue/commit/?id="
                                                              (commit-hash commit))))
                                   (commits-in-current-repository)))
- #:web-css "/style.css"
+ #:web-search-renderer (default-theme #:css %css)
  #:web-files (cons* (file "index.html"
-                          (skribe-exporter "website/index.skb"))
+                          (skribe-exporter "website/index.skb" #:engine %engine))
                     (file "style.css"
                           (copier "website/style.css"))
                     (file "manual/dev/en/index.html"
-                          (skribe-exporter "doc/tissue.skb"))
+                          (skribe-exporter "doc/tissue.skb" #:engine %engine))
                     (append (map (lambda (font-file)
                                    (file (string-append "fonts/" font-file)
                                          (copier (string-append (getenv "GUIX_ENVIRONMENT")
@@ -28,5 +36,5 @@
                                        "IBMPlexMono-Bold-Latin1.woff2"))
                             (filter-map (lambda (filename)
                                           (file (replace-extension filename "html")
-                                                (gemtext-exporter filename)))
+                                                (gemtext-exporter filename #:engine %engine)))
                                         (gemtext-files-in-directory "issues")))))
-- 
cgit v1.2.3