diff options
| author | Alan Pearce | 2014-09-28 16:40:56 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-09-28 16:41:05 +0100 |
| commit | 5cc13ae3cec7a1778df2994d27a5594004f9a45a (patch) | |
| tree | 6dd6a5c5f2858732b5ab5793a94392842dbdeeb2 /src | |
| parent | ed360808d94ea0e637881158b393da52827573e9 (diff) | |
| download | microformats-5cc13ae3cec7a1778df2994d27a5594004f9a45a.tar.lz microformats-5cc13ae3cec7a1778df2994d27a5594004f9a45a.tar.zst microformats-5cc13ae3cec7a1778df2994d27a5594004f9a45a.zip | |
Remove redundant parents function
Diffstat (limited to 'src')
| -rw-r--r-- | src/microformats/parser.clj | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj index cebfcc7..9377d4a 100644 --- a/src/microformats/parser.clj +++ b/src/microformats/parser.clj @@ -250,12 +250,6 @@ (hash-map :type (get-mf-names element) :properties (get-mf-properties element))) -;; Adapted from http://stackoverflow.com/a/7686324 -(defn- parents - [pred] - (html/zip-pred (fn [loc] - (some pred (take-while identity (iterate z/up (z/up loc))))))) - (defn select-h "Select top-level h-* elements within a HTML element." [loc] |