diff options
| -rw-r--r-- | src/microformats/parser.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj index e3de0a1..cf75a27 100644 --- a/src/microformats/parser.clj +++ b/src/microformats/parser.clj @@ -177,7 +177,7 @@ (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 @@ (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]])) |