From 5bf6bf3581c91641f2cf19b32ea61c5c309f2463 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Jul 2023 22:50:05 -0500
Subject: Add links to stylesheet in default templates

---
 boudin.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'boudin.scm')

diff --git a/boudin.scm b/boudin.scm
index ac22682..51bf8d5 100755
--- a/boudin.scm
+++ b/boudin.scm
@@ -289,6 +289,8 @@ boudin --- a little static site generator
    (lambda (page)
      `(html (@ (lang "en"))
             (head (title ,(page-meta-ref page "title" "[untitled]"))
+                  (link (@ (href "../style.css") ; relative
+                           (rel "stylesheet")))
                   (meta (@ (name "viewport")
                            (content "initial-scale=1.0"))))
             (body ,(let ((title (page-meta-ref page "title" #f)))
@@ -299,7 +301,11 @@ boudin --- a little static site generator
   (make-parameter
    (lambda pages
      `(html (@ (lang "en"))
-            (head (title ,(site-name)))
+            (head (title ,(site-name))
+                  (link (@ (href "./style.css") ; relative
+                           (rel "stylesheet")))
+                  (meta (@ (name "viewport")
+                           (content "initial-scale=1.0"))))
             (body (h1 ,(site-name))
                   (ul
                    ,@(map (lambda (pg)
@@ -354,7 +360,7 @@ boudin --- a little static site generator
 
 (define (write-page page)
   (print-log "writing " (or (page-meta-ref page "title" #f)
-                      (page-source-path page)))
+                            (page-source-path page)))
   (create-directory (pathname-directory (page-dest-path page)) 'parents)
   (with-output-to-file (page-dest-path page)
     (lambda () (sxml-display-as-html ((page-template) page)))))
-- 
cgit 1.4.1-21-gabe81