diff options
| author | Alan Pearce | 2014-09-24 19:18:24 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-09-24 19:18:24 +0100 |
| commit | 1fdbc8e2e73837af5447e18f44d6ca3286b233d2 (patch) | |
| tree | dd3cfe60785b64282e107b99a1b9f6bef54068c3 | |
| parent | b14be70cb06dc34dfc1823c5cf5151a798ac7379 (diff) | |
| download | microformats-1fdbc8e2e73837af5447e18f44d6ca3286b233d2.tar.lz microformats-1fdbc8e2e73837af5447e18f44d6ca3286b233d2.tar.zst microformats-1fdbc8e2e73837af5447e18f44d6ca3286b233d2.zip | |
Fix indentation
| -rw-r--r-- | src/microformats/parser.clj | 48 |
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" |