Fix bugs and implement changes main

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

1 files changed, 10 insertions, 6 deletions

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