    {:account "", :amount ""}])
 
 (def app-state (atom 
-  {:txs sample-txs 
+  {:screen :import
+   :txs sample-txs 
    :entry-parts empty-entry-parts}))
 
 (defn store-event [ev]
   {:target (aget ev "target")
+   :key-code (.-keyCode ev)
    :target-value (aget ev "target" "value")})
 
 (defn send! 

  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]
            [cljs.core.async :refer [put! chan <!]]))

(enable-console-print!)

(def channel (chan))
  
(def sample-txs [
  {:date "2015/02/17", :description "Starting Cash", :parts [
    {:account :a-cash, :amount 10000}
    {:account :i-start, :amount -10000}]}
  {:date "2015/02/18", :description "Whole Foods", :parts [
    {:account :e-groceries, :amount 2000}
    {:account :a-cash, :amount -2000}]}
  {:date "2015/02/19", :description "Whole Foods", :parts [
    {:account :e-groceries, :amount 2000, :note "Food"}
    {:account :e-alcohol, :amount 1000, :note "Beer"}
    {:account :a-cash, :amount -3000}]}
])

(defn str->fixpt [s]
