     [om-bootstrap.input :as obi]
     [om-bootstrap.table :as obt]))
 
+(def money-format "%.02f")
+
 (defn hist->tr
   [hist]
   (dom/tr
     ; (dom/td  (:when hist))
     (dom/td  (:location hist))
-    (dom/td  (:amount hist))))
+    (dom/td  (gstring/format money-format (:amount hist)))))
 
 (defn view-history [data owner]
   (reify om/IRender

  (reify om/IRender
    (render [this]
      (dom/h3 {:class "col-sm-6 currenttotal"} 
               (str "Current Total: " (gstring/format "$%.02f" (apply - (:start-amount data) (map :amount (:previous-payments data)))))))))

(defn main-view [app owner]
  (reify om/IRender

  [name str]
  (cond
    (empty? str) {name "is empty"}
    (not (re-matches #"^-?\d+(\.\d+)?$" str)) {name "is not a number"})) 

(defn payment-errors
  [{:keys [location amount]}]
