Add request header into to form input

gistfile1.clj

(defform foo-form "/foo"
  :fields [(hidden :id)
           (hidden :remote-addr)
           (textfield "Enter Your Foo" :foo)]
  :on-cancel "/"
  :on-success
  #(do
     (flash-put! :message (str %))
     "/")
  :defaults (fn [request]
              {:foo "bar"
               :remote-addr (:remote-addr request)}))