From cfc7b8399308136d62f172a4d522652d0097bb96 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 19 Oct 2014 17:32:42 +0100
Subject: Join multiple u/dt value elements without spaces

---
 src/microformats/parser.clj | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index e0e2310..f5d18d9 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -114,20 +114,21 @@
 
 (defn get-value-class
   "Get the value class of elements"
-  [elements]
-  (str/join " " (into [] ((comp (r/map (partial apply str))
-                                (r/map node-to-text)
-                                (r/map :content))
-                          elements))))
+  [elements ws?]
+  (str/join (if ws? " " "")
+            (into [] ((comp (r/map (partial apply str))
+                            (r/map node-to-text)
+                            (r/map :content))
+                      elements))))
 
 (defn find-value-class
   "Find and get the value class of elements"
-  [el]
+  [el ws?]
   (anacond
    (not-empty (html/select el [html/root :> :.value-title]))
    (get-value-title-class %)
    (not-empty (html/select el [html/root :> :.value ]))
-   (get-value-class %)))
+   (get-value-class % ws?)))
 
 (declare parse-h)
 
@@ -152,7 +153,7 @@
   [loc]
   (let [el (z/node loc)]
     (or (find-child-mf loc)
-        (str/trim (or (find-value-class el)
+        (str/trim (or (find-value-class el true)
                       (case (:tag el)
                         :img (-> el :attrs :alt)
                         :area (-> el :attrs :alt)
@@ -167,7 +168,7 @@
   "Get the u-x property value of an element"
   [loc]
   (let [el (z/node loc)]
-    (str/trim (or (find-value-class el)
+    (str/trim (or (find-value-class el nil)
                   (case (:tag el)
                     :a (normalise-url (z/root loc) (-> el :attrs :href))
                     :area (normalise-url (z/root loc) (-> el :attrs :href))
@@ -181,7 +182,7 @@
   "Get the dt-x property value of an element"
   [loc]
   (let [el (z/node loc)]
-    (str/trim (or (find-value-class el)
+    (str/trim (or (find-value-class el nil)
                   (case (:tag el)
                     :time (-> el :attrs :datetime)
                     :ins  (-> el :attrs :datetime)
-- 
cgit 1.4.1