      [:th.col-sm-2.text-right "Amount"]
      [:th.col-sm-2.text-right "Balance"]]]
    [:tbody
-    (if @items
-      (map item-row @items)
+    (if-let [items @transaction-items]
+      (map item-row items)
       [:tr [:td {:colSpan 4} [:span.inline-status "Loading..."]]])]])
 
 (defn- query-again?

(def ^:private *accounts* (r/atom []))
(def ^:private *commodities* (r/atom []))
(def ^:private working-transaction (r/atom nil))

(defn- delete
  [account]


(defn- handle-saved-transaction
  [transaction]
  (reset! working-transaction nil)
  (reset! transaction-items nil)
  (get-items))

(defn- save-transaction []
  (-> @working-transaction
