         ""
         ]
        (string/join \newline)))
+
+(defn errors [errors usg]
+  (string/join \newline
+               "Errors:"
+               ""
+               (map #(str "  - " %) errors)
+               ""
+               usg
+               ""
+               ""))
 
 (defn usage [options-summary & {:keys [sub-command]}]
   (let [display-command (if sub-command

  (let [{:keys [options arguments errors summary]}
        (parse-opts args (concat
                          cli-options
                          [["-h" "--help"]])
                    :in-order true)]
    (cond
      (:help options) (exit 0 (str (usage summary)

       ow))))

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

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