 ;; -----------------------------------------------------------------------------
 ;; Set hosts
 
-(defn- set-host-config [this title current-host default-host set-host reset-host]
+(defn- set-host-config [this title current-host default-host set-host reset-host delete-host]
   (let [content (or (get (om/get-state this) :content) "")]
     [:div
      [:h5 title]

;; Demo Settings

(defn- build-connections [{:keys [name dbas eden]}]
  [[:button.btn.btn-default
    {:key (lib/get-unique-key)
     :onClick (fn [_]
                (lib/store-multiple-values-to-app-state!

      [:span.input-group-addon (t :options :default)]
      [:input.form-control {:value (or default-host "")
                            :disabled true}]]
     [:button.btn.btn-sm.btn-default {:onClick #(set-host content)}
      (t :options :save) " " title]
     [:div.pull-right
      [:button.btn.btn-sm.btn-warning
       {:onClick delete-host
        :style {:marginRight "0.5em"}}
       (t :options :delete)]
      [:button.btn.btn-sm.btn-warning
       {:onClick reset-host}
       (t :options :reset)]]]))

(s/fdef set-host-config
  :args (s/cat :this any? :title string? :current-host string?
