about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--src/microformats/parser.clj48
1 files changed, 24 insertions, 24 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index 0454d21..36eba82 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -83,26 +83,26 @@
   "Get the p-x property value of an element"
   [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)
-            (node-to-text (:content 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)
+                (node-to-text (:content el))
+                "")))
 
 (defn get-u-value
   "Get the u-x property value of an element"
   [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))
+                (case (:tag el)
+                  :a (-> el :attrs :href)
+                  :area (-> el :attrs :href)
+                  :img (-> el :attrs :src)
+                  :object (-> el :attrs :data)
+                  (get-p-value el))
             (node-to-text (:content el))
             "")))
 
@@ -110,15 +110,15 @@
   "Get the dt-x property value of an element"
   [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))
-            (node-to-text (:content 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))
+                (node-to-text (:content el))
+                "")))
 
 (defn get-e-value
   "Get the e-x propery value of an element"