diff options
| author | Alan Pearce | 2014-09-28 13:09:16 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-09-28 13:09:16 +0100 |
| commit | 1ae47c1809a657bbef2ba30061527c73d2bed562 (patch) | |
| tree | 46c744540f37185caf29f06db9b956ae1d2e6adc | |
| parent | 71be658b093da8be2fb99997cdc961b1246a4ee3 (diff) | |
| download | microformats-1ae47c1809a657bbef2ba30061527c73d2bed562.tar.lz microformats-1ae47c1809a657bbef2ba30061527c73d2bed562.tar.zst microformats-1ae47c1809a657bbef2ba30061527c73d2bed562.zip | |
Rename previously-missed usages
| -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]])) |