From 0fe95fe03334c62c2c36f0e3a1d2be167fc4a506 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 22 Sep 2014 20:16:22 +0100
Subject: Trim strings when retrieving property values

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

(limited to 'src')

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index de53855..eade3dc 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -56,43 +56,43 @@
 (defn get-p-value
   "Get the p-x property value of an element"
   [el]
-  (or (find-value-class el)
-      (case (:tag el)
-        :img (-> el :attrs :alt)
-        :area (-> el :attrs :alt)
-        :abbr (-> el :attrs :title)
-        :data (-> el :attrs :value)
-        :input (-> el :attrs :value)
-        nil)
-      (first (:content el))
-      ""))
+  (str/trim (or (find-value-class el)
+            (case (:tag el)
+              :img (-> el :attrs :alt)
+              :area (-> el :attrs :alt)
+              :abbr (-> el :attrs :title)
+              :data (-> el :attrs :value)
+              :input (-> el :attrs :value)
+              nil)
+            (first (:content el))
+            "")))
 
 (defn get-u-value
   "Get the u-x property value of an element"
   [el]
-  (or (find-value-class el)
-      (case (:tag el)
-        :a (-> el :attrs :href)
-        :area (-> el :attrs :href)
-        :img (-> el :attrs :src)
-        :object (-> el :attrs :data)
-        (get-p-value el))
-      (first :content el)
-      ""))
+  (str/trim (or (find-value-class el)
+            (case (:tag el)
+              :a (-> el :attrs :href)
+              :area (-> el :attrs :href)
+              :img (-> el :attrs :src)
+              :object (-> el :attrs :data)
+              (get-p-value el))
+            (first :content el)
+            "")))
 
 (defn get-dt-value
   "Get the dt-x property value of an element"
   [el]
-  (or (find-value-class el)
-      (case (:tag el)
-        :time (-> el :attrs :datetime)
-        :ins  (-> el :attrs :datetime)
-        :del  (-> el :attrs :datetime)
-        :abbr (-> el :attrs :title)
-        :data (-> el :attrs :value)
-        :input (-> el :attrs :value))
-      (first (:content el))
-      ""))
+  (str/trim (or (find-value-class el)
+            (case (:tag el)
+              :time (-> el :attrs :datetime)
+              :ins  (-> el :attrs :datetime)
+              :del  (-> el :attrs :datetime)
+              :abbr (-> el :attrs :title)
+              :data (-> el :attrs :value)
+              :input (-> el :attrs :value))
+            (first (:content el))
+            "")))
 
 (defn- node-to-html
   "Turn a node into a list of HTML strings"
-- 
cgit 1.4.1