Remove redundant parents function
1 file changed, 0 insertions(+), 6 deletions(-)
jump to
M src/microformats/parser.clj → src/microformats/parser.clj
@@ -250,12 +250,6 @@ [element] (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]