         (cons (dissoc file-struct :dir-ls) (specify-files (file-struct :dir-ls)))
         file-struct))
 
-(defn directory-recursion
-    [file-structs]
-    (map directory-consolidate file-structs))
-
 (defn specify-files 
     "Given a list of file names (presumably all in the same folder) goes and performs
     all the steps needed to narrow down which files we want to actually use for this

    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)

          new-seq (cons file-struct base-name-seq)]
        (assoc file-map base-name new-seq)))

(defn narrow-group
    "Given a list of file-structs, returns the struct with the most specific
    specifier"
