clojure nested map destructuring

nested-map-destructuring.clj

;;input [:app :env config-{}] 

(defn download-archive
  [app env
   {:keys [build-number build-name workdir]
    {:keys [base-url archive-api archive-type archive-input-regex user pass]} :artifactory
    {{{:keys [regex]} app} env} :deploy}]
  (write-stream {:in  (io/input-stream
                       (get-archive-response-body
                        {:uname user
                         :pass pass
                         :uri (str base-url archive-api)
                         :build-number build-number
                         :build-name build-name
                         :archive-type archive-type
                         :regex  (str regex archive-input-regex)}))
                 :location workdir
                 :name (str build-name "-" build-number "." (name archive-type))}))