From 1ae47c1809a657bbef2ba30061527c73d2bed562 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 28 Sep 2014 13:09:16 +0100
Subject: Rename previously-missed usages

---
 src/microformats/parser.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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]]))
-- 
cgit 1.4.1