reader: Export html-reader and fix style.

* haunt/reader.scm (html-reader): Export. Use alist-cons to neaten up code.
2015-04-11 22:32:49 -04:00
parent 84c65348ea
commit 5f7a963c17
1 changed files with 4 additions and 4 deletions
--- a/haunt/reader.scm
+++ b/haunt/reader.scm
@@ -42,7 +42,8 @@
            read-posts

            make-file-extension-matcher
-            sxml-reader))
+            sxml-reader
+            html-reader))

 (define-record-type <reader>
  (make-reader matcher proc)
@@ -109,9 +110,8 @@ list must contain a matching reader for every post."
        (values metadata `(raw ,(read-string port))))
       (else
        (match (map string-trim-both (string-split-at line #\:))
-          ((key value)
-           (loop (cons (cons (string->symbol key) value)
-                       metadata)))
+          (((= string->symbol key) value)
+           (loop (alist-cons key (parse-metadata key value) metadata)))
          (_ (error "invalid metadata format: " line))))))))

 (define html-reader