From 2b01c9e53ded6e44d75b45fe955f00b79f3ef75e Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 24 Sep 2014 13:30:11 +0100
Subject: Parse child implied URLs

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

(limited to 'src')

diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj
index ab14cd6..5786f7c 100644
--- a/src/microformats/parser.clj
+++ b/src/microformats/parser.clj
@@ -192,7 +192,8 @@
   [element]
   (case (:tag element)
     :a (-> element :attrs :href)
-    nil))
+    (if-let [% (first (html/select element [html/root :> [:a (html/attr? :href) html/only-of-type (html/but-node (html/attr-contains :class "h-"))]]))]
+      (-> % :attrs :href))))
 
 (defn- parse-implied-photo
   [element]
-- 
cgit 1.4.1