From 1fdbc8e2e73837af5447e18f44d6ca3286b233d2 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 24 Sep 2014 19:18:24 +0100
Subject: Fix indentation

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

(limited to 'src')

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"
-- 
cgit 1.4.1