              :stream stream
              :peer local-peer})))
 
+
 (declare client-state)
+
 
 (defn add-transaction! [app-state tx]
   (s/assoc! (:stage client-state)

           :on-change (fn [e]
                        (om/update-state! component assoc local-key (target-val e)))}])

(defn transactions-widget [transactions]
  [:div
   [:h3 "Transactions"]


(enable-console-print!)


                                        ; HELPERS

(defn pprint [s & args]
  (.log js/console (apply pr-str s args)))


(defn target-val [e]
  (.. e -target -value))

                                        ; REPLIKATIV

(def stream-eval-fns
  {'assoc (fn [a new]
