fix deep concats

Author: icambron

.gitignore

@@ -9,3 +9,4 @@ pom.xml.asc
 /.nrepl-port
 .hgignore
 .hg/
+.#*

project.clj

@@ -1,4 +1,4 @@
-(defproject vixen "0.1.1"
+(defproject vixen "0.1.2"
   :description "Manipulate DOM"
   :url "http://github.com/zensight/vixen"
   :plugins [[cider/cider-nrepl "0.12.0"]]

src/vixen/core.clj

@@ -140,11 +140,13 @@
            [[n p] & others] [[node path]]]
       (if n
         (let [newly (selector n p vix)]
-          (recur (concat found newly)
-                 (concat others
-                         (map-indexed (fn [i child]
-                                        [child (conj p i)])
-                                      (:content n)))))
+          (recur (if (empty? newly) found (concat found newly))
+                 (if (empty? (:content n)
+                             others
+                             (concat others
+                                     (map-indexed (fn [i child]
+                                                    [child (conj p i)])
+                                                  (:content n)))))))
         found))))
 
 (defn path->selector [path]