madvas

(ns crmui-reagent.core
  (:require
    [cljsjs.material-ui]
    [cljs-react-material-ui.core :as ui]
    [cljs-react-material-ui.reagent :as rui]
    [cljs-react-material-ui.icons :as ic]
    [reagent.core :as r :refer [atom]]
    [reagent.session :as session]
    [secretary.core :as secretary :include-macros true]
    [accountant.core :as accountant]

madvas

(defn partial-right
  "Takes a function f and fewer than the normal arguments to f, and
 returns a fn that takes a variable number of additional args. When
 called, the returned function calls f with additional args + args."
  ([f] f)
  ([f arg1]
   (fn [& args] (apply f (concat args [arg1]))))
  ([f arg1 arg2]
   (fn [& args] (apply f (concat args [arg1 arg2]))))
  ([f arg1 arg2 arg3]

madvas

0xbBC5eE8be95683983dF67260B0AB033c237Bde60

madvas

(reg-event-fx
  :new-tweet/send
  interceptors
  (fn [{:keys [db]} []]
    (let [{:keys [name text address]} (:new-tweet db)]
      {:web3-fx.contract/state-fn
       {:instance (:instance (:contract db))
        :web3 (:web3 db)
        :db-path [:contract :send-tweet]
        :fn [:add-tweet name text

madvas

(reg-event-fx
  :blockchain/my-addresses-loaded
  interceptors
  (fn [{:keys [db]} [addresses]]
    {:db (-> db
           (assoc :my-addresses addresses)
           (assoc-in [:new-tweet :address] (first addresses)))
     :web3-fx.blockchain/balances
     {:web3 (:web3 db/default-db)
      :addresses addresses

madvas

(reg-event-db
  :contract/settings-loaded
  interceptors
  (fn [db [[max-name-length max-tweet-length]]]
    (assoc db :settings {:max-name-length (.toNumber max-name-length)
                         :max-tweet-length (.toNumber max-tweet-length)})))

madvas

(reg-event-db
  :contract/on-tweet-loaded
  interceptors
  (fn [db [tweet]]
    (update db :tweets conj (merge (select-keys tweet [:author-address :text :name])
                                   {:date (u/big-number->date-time (:date tweet))
                                    :tweet-key (.toNumber (:tweet-key tweet))}))))

madvas

(reg-event-fx
  :initialize
  (fn [_ _]
    (merge
      {:db db/default-db
       :http-xhrio {:method :get
                    :uri (gstring/format "/contracts/build/%s.abi"
                                         (get-in db/default-db [:contract :name]))
                    :timeout 6000
                    :response-format (ajax/json-response-format {:keywords? true})

madvas

(reg-event-fx
  :contract/abi-loaded
  interceptors
  (fn [{:keys [db]} [abi]]
    (let [web3 (:web3 db)
          contract-instance (web3-eth/contract-at web3 abi (:address (:contract db)))]

      {:db (assoc-in db [:contract :instance] contract-instance)

       :web3-fx.contract/events

madvas

(reg-event-fx
  :initialize
  (fn [_ _]
    (merge
      {:db db/default-db
       :dispatch [:contract/fetch-compiled-code [:contract/compiled-code-loaded]]}
      (when (:provides-web3? db/default-db)
        {:web3-fx.blockchain/fns
         {:web3 (:web3 db/default-db)
          :fns [[web3-eth/accounts :blockchain/my-addresses-loaded :log-error]]}}))))