           date (fmt/unparse (fmt/formatters :date-time-no-ms) (time/now))
           info {:date date :email "mixradiobot@gmail.com" :name "Mix Radio Bot"}
           options {:author info :committer info :parents []}
-          response (data/create-commit organisation repo-name "Initial commit" tree options)]
+          response (data/create-commit organisation repo-name "Initial commit" tree (merge-options options))]
       (if (busted? response)
         (do
           (with-logging-context {:response response}

(defn all-repositories
  "Gets all repositories in the organisation in Github."
  []
  (let [response (repos/org-repos organisation {:all_pages true})]
    (when-not (busted? response)
      (doall (map extract-repo-info (remove empty? response))))))


  (try
    (let [repo-name (repo-name application environment)
          options {:auto_init true :has-downloads false :has-issues false :has-wiki false :public false}
          response (repos/create-org-repo organisation repo-name (merge-options options))]
      (if (busted? response)
        (do
          (with-logging-context {:response response}
