diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/microformats/parser.clj | 12 |
1 files changed, 6 insertions, 6 deletions
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" |