A new start (again)

1 files changed, 45 insertions, 0 deletions

@@ -0,0 +1,45 @@
+;;; (boudin config) --- default values for configuration options
+;;
+;; To change these, make a `config.scm' in your site's root directory and change
+;; these.  They're all parameters so .. change em like that.
+
+(define-library (boudin config)
+  (import (scheme base)
+          (boudin schmaltz)
+          ;; not portable
+          (chicken pathname)
+          (html-parser)
+          )
+
+  (export site-url site-dest
+          page-path-transformers page-text-transformers
+          page-template index-template feed-template)
+
+  (begin
+    ;; Site information
+    (define site-url
+      (make-parameter "example.com"))
+    (define site-dest
+      (make-parameter "out/"))
+    ;; Transformers
+    (define page-path-transformers
+      (make-parameter
+       (list (lambda (path) (make-pathname (site-dest) path)))))
+    (define page-text-transformers
+      (make-parameter
+       (list wrap-paragraphs
+             render-string
+             html->sxml)))
+    ;; Templates --- note that we use quote but include unquote forms here.
+    ;; This is to simplify the configuration and to avoid a cyclical dependency
+    ;; with (boudin types).
+    (define page-template
+      (make-parameter
+       '(html (@ (lang "en-us"))
+              (head (title (or (page-ref pg "title") "[untitled]")))
+              (body ,@(page-sxml pg)))))
+    (define index-template
+      (make-parameter 'todo))
+    (define feed-template
+      (make-parameter 'todo))
+    ))