   (into txs
         (map normalize-transaction
              (cljs.reader/read-string target-value))))
+
+(defn import-prices [{:keys [target-value]}]
+  ;(map #(update-in % [:amount] str->fixpt)
+       (cljs.reader/read-string target-value));)
 
 (defn create-transaction [{:keys [date description accounts amounts]}]
   {:date date

    (compare (Math/abs n2) (Math/abs n1))
    (compare n1 n2)))
    
(defn display-amount [amount unit neg]
  (str (if unit (str (subs (str unit) 1) " ") "$") 
       (fixpt->str (if neg (- amount) amount))))

(defn tx-tds [tx]
  (let [[from-part to-part :as parts] (sort-by :amount cmp-sign-abs (:parts tx))]

                     {:account (account-key->str account)
                      :amount (display-amount amount unit)})))))

(def right-align #js {:style #js {:textAlign "right"}})

(defn render-import [state]
  (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
