        "with values\n\n"
        "           load path_to_csv app -- loads in a new csv into a specified "
        "application\n\n"
-       "           export path_to_csv -- exports the entire repository into a "
-       "csv file\n\n"
-       "           import path_to_csv -- loads the entire repository from a "
-       "csv file"))
+       "           export app path_to_csv -- exports the entire repository into"
+       "a csv file\n\n"
+       "           import app path_to_csv -- loads the entire repository from a"
+       " csv file"))
 
 (defn- usage [parsed-opts]
   (if (:errors parsed-opts)

         (get token envt))))))

(defn- token->value-list [token environments]
  [(concat [(:name token)]
          (map #(let [value (get (get (:values token) %) "value")]
                  (if (nil? value)
                    ""

  (let [tokens (get-tokens app)
        environments (set (flatten (map #(keys (:values %)) tokens)))]
    (with-open [wrtr (io/writer filename)]
      (.write wrtr (csv/write-csv [(concat ["key_name" "description"]
                                           environments)]
                                   :delimiter delimiter))
      (doall (map #(.write wrtr
                           (csv/write-csv (token->value-list % environments)
