Add basic img property inferring
2 files changed, 14 insertions(+), 2 deletions(-)
M src/microformats/parser.clj → 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 @@ (case (:tag element) :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"
M test/microformats/parser_expectations.clj → test/microformats/parser_expectations.clj
@@ -133,6 +133,9 @@ (expect {:items [{:type ["h-card"] :properties {:name '("Example User") :url '("http://example.com")}}] :rels {}} (parse "<a class=\"h-card\" href=\"http://example.com\">Example User</a>")) +(expect {:items [{:type ["h-card"] :properties {:name '("Example User") + :photo '("http://example.com/me.png")}}] :rels {}} + (parse "<img class=\"h-card\" alt=\"Example User\" src=\"http://example.com/me.png\"></img>")) (expect {:items [{:type ["h-adr"], :properties {:street-address '("665 3rd St."),