diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/microformats/parser.clj | 3 |
1 files changed, 2 insertions, 1 deletions
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] |