about summary refs log tree commit diff stats
path: root/src
diff options
context:
space:
mode:
authorAlan Pearce2014-09-24 19:18:24 +0100
committerAlan Pearce2014-09-24 19:18:24 +0100
commit1fdbc8e2e73837af5447e18f44d6ca3286b233d2 (patch)
treedd3cfe60785b64282e107b99a1b9f6bef54068c3 /src
parentb14be70cb06dc34dfc1823c5cf5151a798ac7379 (diff)
downloadmicroformats-1fdbc8e2e73837af5447e18f44d6ca3286b233d2.tar.lz
microformats-1fdbc8e2e73837af5447e18f44d6ca3286b233d2.tar.zst
microformats-1fdbc8e2e73837af5447e18f44d6ca3286b233d2.zip
Fix indentation
Diffstat (limited to 'src')
-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"