                      {:account (account-key->str account)
                       :amount (display-amount amount unit)})))))
 
+(def right-align #js {:style #js {:textAlign "right"}})
+
 (defn render-import [state]
-  (dom/textarea #js {:onKeyDown (send! :import) :rows 25 :cols 100}))
-  
+  (dom/div nil
+    (dom/p nil "Import transaction data:")
+    (dom/textarea #js {:onKeyDown (send! :import-txs) :rows 20 :cols 100})
+    (dom/p nil "Import price data:")
+    (dom/textarea #js {:onKeyDown (send! :import-prices) :rows 20 :cols 100})))
+
 (defn render-table-headings [headings]
   (dom/thead nil
     (apply dom/tr nil

      (let [[type ev arg] (<! channel)]
        (case type
          :screen (om/update! app [:screen] arg)
          :import (if (= 13 (:key-code ev)) 
            (om/transact! app #(merge % {:screen :summary, :txs (import-transactions ev %)})))
          :register (if (= 13 (:key-code ev))
            (om/update! app [:register-parts] (register-parts (str->account (:target-value ev)) (:txs @app-state))))
          :create (om/transact! app [:txs] #(conj % (create-transaction (get-inputs-state))))
          :change (om/transact! app [:entry-parts] #(change-part-field ev arg %))
          :blur (om/transact! app [:entry-parts] #(blur-amount ev arg %)))))))

    (render-menu screen)
    (case screen
      :import (render-import state)
      :export (render-export state)
      :summary (render-summary (summarize txs))
      :detail (render-detail state)
      :register (render-register state))))
