From 5cc13ae3cec7a1778df2994d27a5594004f9a45a Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 28 Sep 2014 16:40:56 +0100
Subject: Remove redundant parents function

---
 src/microformats/parser.clj | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'src')

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]
-- 
cgit 1.4.1