about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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]]))