      (println "dbg:" '~body "=" x#)
 x#))
 
-(defn generate-repo-index!
+(defn- generate-repo-index!
   [options arguments]
   (let [{:keys [add-to
                 search-directory

           :validate [#(and
                        (fs/directory? %)
                        (fs/exists? %))
                      "Must be a directory which exists on the file system."]]]}})

(defn command-list [commands]
  (->> ["Commands are:"

                     (filter #(and (fs/file? %)
                                   (= ".dscard" (dbg (fs/extension %))))
                             (file-seq (fs/file search-directory))))))))
       ow))))

(defn- resolve-locations!
  [options arguments])

(def subcommand-cli
  {"generate-repo-index"
