diff options
| author | Alan Pearce | 2014-10-12 00:51:52 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-10-12 00:51:52 +0100 |
| commit | 8d3b9dc5f28587d0290ebf6f7c0bedf0866f5b62 (patch) | |
| tree | 3496401a1dc9d5578bd29dc7244fc4c640df2e1f /src | |
| parent | b12efc0d46294c8c6295971360b67de28127175a (diff) | |
| download | microformats-8d3b9dc5f28587d0290ebf6f7c0bedf0866f5b62.tar.lz microformats-8d3b9dc5f28587d0290ebf6f7c0bedf0866f5b62.tar.zst microformats-8d3b9dc5f28587d0290ebf6f7c0bedf0866f5b62.zip | |
Parse multi-type properties on same element
Diffstat (limited to 'src')
| -rw-r--r-- | src/microformats/parser.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj index 9bc9d84..92104dc 100644 --- a/src/microformats/parser.clj +++ b/src/microformats/parser.clj @@ -328,8 +328,8 @@ [loc] (when (and (not (z/end? loc)) (not (contains? #{:br :hr} (-> loc z/node :tag)))) - (if-let [class-groups (some->> loc z/node :attrs :class (re-seq #"(?:^|\s)(h|p|u|dt|e)-\w+") (map second) distinct first list)] (map (partial parse-mf loc) class-groups) + (if-let [types (some->> loc z/node :attrs :class (re-seq #"(?:^|\s)(h|p|u|dt|e)-\w+") (map second) set)] (recur (z/next loc))))) (defn continue-walking |