From 21830ef89ee29c4dfbaa4340601ef837ffb53159 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 22 Sep 2014 20:02:22 +0100
Subject: Output lists of values according to spec

---
 src/microformats/parser.clj | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index b3af5e3..de53855 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -105,8 +105,8 @@
   "Get the e-x propery value of an element"
   [el]
   (let [content (:content el)]
-    {:html (apply str (node-to-html content))
-     :value (apply str (html/texts content))}))
+    (list {:html (apply str (node-to-html content))
+           :value (apply str (html/texts content))})))
 
 (defn parse-p
   "Parse p-* classes within HTML element."
@@ -114,7 +114,7 @@
   (->> element
        element-to-classes
        ((classes-to-props "p-"))
-       (r/map #(hash-map % (get-p-value element)))
+       (r/map #(hash-map % (list (get-p-value element))))
        (into {})))
 
 (defn parse-u
@@ -123,7 +123,7 @@
   (->> element
        element-to-classes
        ((classes-to-props "u-"))
-       (r/map #(hash-map % (get-u-value element)))
+       (r/map #(hash-map % (list (get-u-value element))))
        (into {})))
 
 (defn parse-dt
@@ -132,7 +132,7 @@
   (->> element
        element-to-classes
        ((classes-to-props "dt-"))
-       (r/map #(hash-map % (get-dt-value element)))
+       (r/map #(hash-map % (list (get-dt-value element))))
        (into {})))
 
 (defn parse-e
@@ -155,7 +155,7 @@
 (defn- imply-name
   "Imply the name of an entity from the element"
   [element]
-  (or (first (:content element))))
+  (:content element))
 
 (defn parse-implied
   "Parse implied properties of a HTML element"
-- 
cgit 1.4.1