Fix bugs and implement changes main

I can actually build a (one-page) site!

7 files changed, 60 insertions, 13 deletions

@@ -0,0 +1,22 @@
+(module (boudin config) ()
+  (import scheme (chicken module))
+  (reexport (except (boudin site)
+                    site-build-time)
+            (boudin util)
+            (only (boudin page style)
+                  style-template
+                  site-style
+                  style-writer)
+            (only (boudin page post)
+                  post-text-transformers
+                  post-path-transformers
+                  post-template
+                  post-writer)
+            (only (boudin page write)
+                  html-head) ; TODO: move to boudin.page
+            (only (boudin page index)
+                  index-content
+                  index-writer
+                  index-template
+                  feed-writer
+                  feed-template)))
@@ -1,9 +1,9 @@
 ;;; boudin
 
-((synopsis "a tiny, tasty ssg.")
+((synopsis "a spicy, tasty ssg.")
  (author "Case Duckworth")
  (license "God Willing")
- (version 1.0)
+ (version 0.9)                          ; almost done!
  (build-dependencies module-declarations)
  (dependencies atom
                html-parser
@@ -25,6 +25,13 @@
                                    boudin.page.write
                                    boudin.site
                                    boudin.util))
+  (extension boudin.config
+             (component-dependencies boudin.site
+                                     boudin.page.style
+                                     boudin.page.post
+                                     boudin.page.index
+                                     boudin.page.write
+                                     boudin.util))
   (extension boudin.page
              (component-dependencies boudin.site
                                      boudin.util))
@@ -1,5 +1,6 @@
 (declare (module (boudin page index))
          (export make-index
+                 index-content
                  index-template
                  index-writer
                  make-feed
@@ -33,12 +34,16 @@
             (head ,@(html-head)
                   (title ,(site-name)))
             (body (h1 ,(site-name))
+                  ,(index-content)
                   (ul ,@(map (lambda (pg)
                                `(li (a (@ (href ,(page-slug pg)))
                                        ,(or (page-ref pg "title")
                                             (page-slug pg)))))
                              ((site-sort) pgs))))))))
 
+(define index-content
+  (make-parameter ""))
+
 (define (make-feed pgs)
   (make-page ((feed-template) pgs)
              (make-pathname (site-output) "feed.xml")
@@ -15,6 +15,7 @@
                 render-specials
                 render-unprintables)
         (schmaltz chicken)
+        (srfi 1)
         (srfi 152))
 
 (define (make-post path)
@@ -30,17 +31,20 @@
 (define (*extract-metadata sxml)
   (let loop ((tree sxml)
              (acc '()))
+    ;;; CONSIDER: using `read' to simplify this crazy logic 
     (cond
-     ((not (pair? tree))
+     ((null? tree)
       (reverse acc))
      ((and (list? (car tree))
            (eq? (caar tree) '*COMMENT*))
       (loop (cdr tree)
-            (map (lambda (ln)
-                   (let ((kv (string-split ln ":" 'infix 1)))
-                     (cons (string-trim-both (car kv))
-                           (string-trim (cdr kv)))))
-                 (string-split (cadar tree) "\n"))))
+            (filter-map (lambda (ln)
+                          (let ((kv (string-split ln ":" 'infix 1)))
+                            (and (pair? kv)
+                                 (cons (string-trim-both (car kv))
+                                       (apply string-append
+                                              (map string-trim (cdr kv)))))))
+                        (string-split (cadar tree) "\n"))))
      ((list? (car tree))
       (loop (cdr tree)
             (let ((subtree (loop (car tree) '())))
@@ -11,6 +11,8 @@
         (chicken pathname)
         (chicken process-context))
 
+;; State variables
+
 (define site-posts
   (make-parameter '()))
 
@@ -28,9 +30,6 @@
 
 (define (go!)
   (eprint "Building " (site-name) "...")
-  (when (file-exists? (site-config))
-    (with-progress (string-append "Config found, loading: " (site-config))
-                   (lambda () (load (site-config)))))
   (for-each (lambda (f)
               (with-progress (string-append "Copying " f " to " (site-output))
                              (lambda () (copy-static f)))) (site-files))
@@ -52,7 +51,9 @@
   (let loop ((args args))
     (cond
      ((null? args)
-      (for-each print (site-posts))
+      (when (file-exists? (site-config))
+        (with-progress (string-append "Loading " (site-config))
+                       (lambda () (load (site-config)))))
       (go!))
      ;; Configuration file: -c FILE
      ((equal? (car args) "-c")
@@ -39,7 +39,7 @@
   (make-parameter '("%Y-%m-%d"
                     "%d/%m/%Y")))
 
-;; State variables
+;;; State
 
 (define site-build-time
   (make-parameter
@@ -1,12 +1,14 @@
 (declare (module (boudin util))
          (export assoc-ref
                  slurp
+                 slurp-bytes
                  wrap-paragraphs
                  edisplay
                  eprint))
 
 (import (chicken io)
         (srfi 1)
+        (srfi 4)
         (srfi 152))
 
 (define (edisplay x)
@@ -61,3 +63,9 @@
     ((port)
      (read-string #f port)              ; CHICKEN-ism
      )))
+
+(define slurp-bytes
+  (case-lambda
+    (() (slurp-bytes (current-input-port)))
+    ((port)
+     (read-u8vector #f port))))