Fallback to text content if attributes are not found

1 files changed, 17 insertions, 13 deletions

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index 3200669..75f7de9 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -35,23 +35,27 @@
 (defn get-p-property
   "Get the p-x property value of an element"
   [el]
-  (case (:tag el)
-    :img (-> el :attrs :alt)
-    :area (-> el :attrs :alt)
-    :abbr (-> el :attrs :title)
-    :data (-> el :attrs :value)
-    :input (-> el :attrs :value)
-    (or (first (:content el)) "")))
+  (or (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-property
   "Get the u-x property value of an element"
   [el]
-  (case (:tag el)
-    :a (-> el :attrs :href)
-    :area (-> el :attrs :href)
-    :img (-> el :attrs :src)
-    :object (-> el :attrs :data)
-    (get-p-property el)))
+  (or (case (:tag el)
+        :a (-> el :attrs :href)
+        :area (-> el :attrs :href)
+        :img (-> el :attrs :src)
+        :object (-> el :attrs :data)
+        (get-p-property el))
+      (first :content el)
+      ""))
 
 (defn parse-p
   "Parse p-* classes within HTML element."