From 84abb60abc0fdf509849a17e34d501bec62818e0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 19 Sep 2022 02:15:48 +0530
Subject: tissue.scm: Add CSS.

* website/style.css: New file.
* tissue.scm (#:web-files): Copy CSS to website.
(#:web-css): Use it.
---
 tissue.scm | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

(limited to 'tissue.scm')

diff --git a/tissue.scm b/tissue.scm
index 711e015..f069c1e 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -11,17 +11,20 @@
                                               (string-append "https://git.systemreboot.net/tissue/commit/?id="
                                                              (commit-hash commit))))
                                   (commits-in-current-repository)))
- #:web-files (cons (file "index.html"
-                         (skribe-exporter "website/index.skb"))
-                   (append (map (lambda (font-file)
-                                  (file (string-append "fonts/" font-file)
-                                        (copier (string-append (getenv "GUIX_ENVIRONMENT")
-                                                               "/share/fonts/web/" font-file))))
-                                (list "IBMPlexSans-Regular-Latin1.woff2"
-                                      "IBMPlexSans-Bold-Latin1.woff2"
-                                      "IBMPlexMono-Regular-Latin1.woff2"
-                                      "IBMPlexMono-Bold-Latin1.woff2"))
-                           (filter-map (lambda (filename)
-                                         (file (replace-extension filename "html")
-                                               (gemtext-exporter filename)))
-                                       (gemtext-files-in-directory "issues")))))
+ #:web-css "/style.css"
+ #:web-files (cons* (file "index.html"
+                          (skribe-exporter "website/index.skb"))
+                    (file "style.css"
+                          (copier "website/style.css"))
+                    (append (map (lambda (font-file)
+                                   (file (string-append "fonts/" font-file)
+                                         (copier (string-append (getenv "GUIX_ENVIRONMENT")
+                                                                "/share/fonts/web/" font-file))))
+                                 (list "IBMPlexSans-Regular-Latin1.woff2"
+                                       "IBMPlexSans-Bold-Latin1.woff2"
+                                       "IBMPlexMono-Regular-Latin1.woff2"
+                                       "IBMPlexMono-Bold-Latin1.woff2"))
+                            (filter-map (lambda (filename)
+                                          (file (replace-extension filename "html")
+                                                (gemtext-exporter filename)))
+                                        (gemtext-files-in-directory "issues")))))
-- 
cgit v1.2.3