   [:div.form-group
     (when-not (:suppress-label? options)
       [:label.control-label {:for name} (humanize name)])
-    [:input.form-control (merge options {:id name
-                                         :name name
-                                         :value value})]])
+    [:input.form-control (-> options
+                             (dissoc :format-fn)
+                             (merge {:id name
+                                     :name name
+                                     :value value}))]])
 
 (defn text-input-element
   ([name value] (text-input-element name value {}))

  "Renders a HTML input field"
  ([model attribute options]
   (form-group model attribute (:suppress-label? options)
     [:input.form-control (merge options {:id attribute
                                          :name attribute
                                          :value ((or (:format-fn options)
                                                      identity) (get model attribute))})])))

(defn date-input-field
  ([model attribute] (date-input-field model attribute {}))

   (form-group model attribute (:suppress-label? options)
               [:div.input-group.date-field
                [:input.form-control
                 (merge options
                        {:id attribute
                         :name attribute
                         :value (format-date (get model attribute))})]
