   {:pre [(string? branch)]}
   (with-repo path
     (let [{source-commit-hash :id} (head-info)
-          output-files (once-in-git-dir)]
+          output-files (once-in-out-dir)]
       (setup-branch)
       (->> output-files
           (map move-to-work-dir)

      (.getDirectory)
      (file subdir)))

(defmacro with-repo [path & body]
  `(binding [*repo* (load-repo ~path)
             *out-dir* (git-sub-dir-from-repo *repo*)
             *work-dir* (-> *repo*
                            (.getRepository)
                            (.getWorkTree))]
     (with-sh-dir *work-dir*
       ~@body)))

(defn branch-exists?
  [branch]


(defn add-files [files]
  (doseq [afile files]
    (git-add *repo* (.getPath afile))))

(defn deploy
  "Deploy to the given branch. Follow options for commit and push behaviour."
