        (log (<? (is-dir? test-path)))
        (catch js/Error e
          (.error js/console "Node:" e))))
-(go
+#_ (go
   (log (<! (dochan [file (show-lookup test-path)]
                    (log file)))))
 

(defn has-video-extension? [path] (match-extensions? path #{"mkv" "avi"}))

(defn show-lookup [path]
  (->> (scandir [path])
       (r/filter is-file?)
       (r/filter has-video-extension?)))


  ([paths] (scanpaths paths (chan)))
  ([input-paths out]
     (go
       (let [paths (atom (vec input-paths))]
         (while @paths
           (try
             (let [path (peek @paths)]
