Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

dom-seq implemented on top of lazy-cat

  • Loading branch information...
commit 88ea81340563046485f85c36c61c1fcc3d52b0bd 1 parent 86c7687
@youngnh authored
Showing with 1 addition and 7 deletions.
  1. +1 −7 html-selector/src/twoguys/html_selector.clj
View
8 html-selector/src/twoguys/html_selector.clj
@@ -21,13 +21,7 @@
(cons (.item node-list i) (internal (inc i))))))]
(internal 0)))
-(defn dom-seq1 [root-node]
- (let [branch? #(< (.. % getChildNodes getLength) 0)
- children #(nodelist-seq (.getChildNodes %))
- make-node identity]
- (iterate zip/next (zip/zipper branch? children make-node root-node))))
-
-(defn dom-seq2 [root-node]
+(defn dom-seq [root-node]
(let [children (nodelist-seq (.getChildNodes root-node))]
(lazy-cat
children

0 comments on commit 88ea813

Please sign in to comment.
Something went wrong with that request. Please try again.