diff options
| author | Arun Isaac | 2022-03-15 13:46:00 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-15 13:46:00 +0530 |
| commit | bb5eac732185979ad86efe0503613b2346ed5b2d (patch) | |
| tree | e76fff40759f62a3e4ff91843368ce82186e4d50 | |
| parent | f063144f7ebee902c93d500db53d3928f9fc0042 (diff) | |
| download | tissue-bb5eac732185979ad86efe0503613b2346ed5b2d.tar.gz tissue-bb5eac732185979ad86efe0503613b2346ed5b2d.tar.lz tissue-bb5eac732185979ad86efe0503613b2346ed5b2d.zip | |
tissue: Allow specification of CSS.
* tissue/web.scm (build-website): Accept #:css argument and set the
CSS of generated web pages accordingly.
| -rw-r--r-- | tissue/web.scm | 15 |
1 files 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 |