   (let [account (select-keys params [:id
                                      :name
                                      :type
-                                     :content-type
                                      :entity-id
-                                     :content-type
                                      :parent-id])
         updated (accounts/update (env :db) account)]
     (if (validation/has-error? updated)

    (select-field account :type (map #(vector :option {:value %} (humanize %))
                                     accounts/account-types))
    (select-field account
                  :content-type
                  (map #(vector :option {:value %} (humanize %))
                       [:currency :commodities]))
    (select-field account
                  :parent-id
                  (grouped-options-for-accounts (:entity-id account)
                                                {:include-none? true

(defmulti ^:private show-account
  (fn [account params]
    (cond
      (contains? (:tags account) :trading)
      :trading-account

      (contains? (:tags account) :tradable)
      :trading-detail

      :else
