all repos — archive/microformats @ 1ae47c1809a657bbef2ba30061527c73d2bed562

Incomplete Clojure microformats library

Rename previously-missed usages

Alan Pearce
commit

1ae47c1809a657bbef2ba30061527c73d2bed562

parent

71be658b093da8be2fb99997cdc961b1246a4ee3

1 file changed, 2 insertions(+), 2 deletions(-)

jump to
M src/microformats/parser.cljsrc/microformats/parser.clj
@@ -177,7 +177,7 @@ [element]
(case (:tag element) :abbr (-> element :attrs :title) :img (-> element :attrs :alt) - (cond-let + (anacond (first (html/select element [html/root :> [:img html/only-child]])) (-> % :attrs :alt) (first (html/select element [html/root :> [:abbr html/only-child (html/attr? :title)]]))
@@ -200,7 +200,7 @@ [element]
(case (:tag element) :img (-> element :attrs :src) :object (-> element :attrs :data) - (cond-let + (anacond (first (html/select element [html/root :> [:img (html/but-node (html/attr-contains :class "h-")) html/only-of-type]])) (-> % :attrs :src) (first (html/select element [html/root :> [:object (html/but-node (html/attr-contains :class "h-")) html/only-of-type]]))