diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/microformats/parser.clj | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj index 4f9f9e9..b28fce7 100644 --- a/src/microformats/parser.clj +++ b/src/microformats/parser.clj @@ -164,7 +164,9 @@ (defn- imply-name "Imply the name of an entity from the element" [element] - (node-to-text (:content element))) + (case (:tag element) + :img (-> element :attrs :alt) + (node-to-text (:content element)))) (defn- imply-url [element] @@ -172,12 +174,19 @@ :a (-> element :attrs :href) nil)) +(defn- imply-photo + [element] + (case (:tag element) + :img (-> element :attrs :src) + nil)) + (defn parse-implied "Parse implied properties of a HTML element" [element] (into {} (filter #(first (second %)) {:name (list (imply-name element)) - :url (list (imply-url element))}))) + :url (list (imply-url element)) + :photo (list (imply-photo element))}))) (defn get-mf-properties "Parse children of a microformat, returning a map of properties" |