   [name str]
   (cond
     (empty? str) {name "is empty"}
-    (< (.-length str) 5) {name "is too short"})) 
+    (< (.-length str) 5) {name "is too short"}))
 
 (defn valid-number
   [name str]
   (cond
     (empty? str) {name "is empty"}
-    (not (re-matches #"^-?\d+(\.\d+)?$" str)) {name "is not a number"})) 
+    (not (re-matches #"^-?\d+(\.\d+)?$" str)) {name "is not a number"}))
 
 (defn payment-errors
   [{:keys [location amount]}]

        (case (:state app)
          :loading ()
          :enter-payment (om/build enter-payment app)
          :view-history (om/build view-history (:data app))))))) 

(ns leftover.ui
  (:require-macros  [cljs.core.async.macros :refer [go]])
  (:require
    [leftover.util :as util]
    [om.core :as om :include-macros true]
    [om-tools.dom :as dom :include-macros true]
