From 5f7a963c17cb465a611c2a58036f8ae894f1c069 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 11 Apr 2015 22:32:49 -0400
Subject: reader: Export html-reader and fix style.

* haunt/reader.scm (html-reader): Export.  Use alist-cons to neaten up
  code.
---
 haunt/reader.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/haunt/reader.scm b/haunt/reader.scm
index e1ab044..7610482 100644
--- 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
-- 
cgit v1.2.3