about summary refs log tree commit diff stats
path: root/src
diff options
context:
space:
mode:
authorAlan Pearce2014-09-28 13:09:16 +0100
committerAlan Pearce2014-09-28 13:09:16 +0100
commit1ae47c1809a657bbef2ba30061527c73d2bed562 (patch)
tree46c744540f37185caf29f06db9b956ae1d2e6adc /src
parent71be658b093da8be2fb99997cdc961b1246a4ee3 (diff)
downloadmicroformats-1ae47c1809a657bbef2ba30061527c73d2bed562.tar.lz
microformats-1ae47c1809a657bbef2ba30061527c73d2bed562.tar.zst
microformats-1ae47c1809a657bbef2ba30061527c73d2bed562.zip
Rename previously-missed usages
Diffstat (limited to 'src')
-rw-r--r--src/microformats/parser.clj4
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]]))