     (let [specifiers (map #(% :specifier) group-seq)]
         (when-let [i (index-of-specified-entry specifiers)]
             (nth group-seq i))))
-
-(defn narrow-groups
-    "Given a map of basename groups, returns a list of all the most specific
-    structs from each basename group"
-    [file-map]
-    (map #(narrow-group (val %)) file-map))
 
 (declare specify-files)
 (defn directory-consolidate

    Returns a list of file-structs"
    [file-list]
    (->> file-list
         (explode-files-in-list)
         (remove-empty-file-structs)
         (group-by-basename)
         (narrow-groups)
         (directory-recursion)))

(defn specify-tree
    "Since specify-files expects simply a list of files, not a '(dir & files)

      :dir-ls    dir-ls 
      :is-dir?   true    }))

(defn add-to-basename-group 
    "Given a map and a file struct, creates a list with the file-struct
    as the only item for the index of the map corresponding to the file-
