Add links to stylesheet in default templates

1 files changed, 8 insertions, 2 deletions

@@ -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)))))