From bb5eac732185979ad86efe0503613b2346ed5b2d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 15 Mar 2022 13:46:00 +0530
Subject: tissue: Allow specification of CSS.

* tissue/web.scm (build-website): Accept #:css argument and set the
CSS of generated web pages accordingly.
---
 tissue/web.scm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/tissue/web.scm b/tissue/web.scm
index b9c1b8d..79568e6 100644
--- a/tissue/web.scm
+++ b/tissue/web.scm
@@ -179,13 +179,20 @@ default, all issues are listed newest first."
          (find-engine 'html))))
 
 ;; TODO: Use guile-filesystem.
-(define* (build-website output-directory #:key title (tags-path "/tags"))
+(define* (build-website output-directory #:key title css (tags-path "/tags"))
   "Export current git repository to OUTPUT-DIRECTORY as a website.
 
 TITLE is the title to use head of the generated HTML, among other
-places. TAGS-PATH is the path relative to the document root where the
-per-tag issue listings are put. It must begin with a /. If it is #f,
-per-tag issue listings are not generated."
+places.
+
+CSS is the path to a CSS stylesheet. If it is #f, no stylesheet is
+included in the generated web pages.
+
+TAGS-PATH is the path relative to the document root where the per-tag
+issue listings are put. It must begin with a /. If it is #f, per-tag
+issue listings are not generated."
+  (when css
+    (engine-custom-set! (find-engine 'html) 'css css))
   (mkdir-p output-directory)
   ;; Export auto-generated files. We must do this before exporting
   ;; user-created files to allow users to be able to override
-- 
cgit v1.2.3