1.0, why not

1 files changed, 47 insertions, 0 deletions

@@ -0,0 +1,47 @@
+(declare (module (boudin page style))
+         (export make-style
+                 style
+                 page-style
+                 style-template
+                 site-style
+                 style-writer))
+
+(import (boudin page)
+        (boudin site)
+        (scss)
+        (html-parser)
+        (srfi 152)
+        (chicken pathname))
+
+(define (make-style . rules)
+  (make-page rules
+             (make-pathname (site-output) "style.css")
+             (style-template)
+             (style-writer)
+             '()))
+
+(define (style props)
+  ;; sxml: `(el (@ ,(style '((padding 3em) (color red)))) content ...)
+  (let ((sty (scss->css `(css+ (_ ,@props)))))
+    (list 'style
+          (substring sty 4 (- (string-length sty) 2)))))
+
+(define (page-style . rules)
+  ;; sxml: `(html (head ,(page-style '(body (margin auto)))))
+  `(style ,(scss->css `(css+ ,@rules))))
+
+(define style-template
+  (make-parameter
+   (lambda (pg)
+     `(css+ ,@(page-content pg)))))
+
+(define site-style
+  (make-parameter
+   '((body (font 18px/1.4 sans-serif)
+           (max-width 70ch)
+           (padding 2ch)
+           (margin 0 auto)))))
+
+(define style-writer
+  (make-parameter
+   write-css))