Skip to content

Instantly share code, notes, and snippets.

Avatar

Matus Lestan madvas

View GitHub Profile
View rinkeby-address.txt
0xbBC5eE8be95683983dF67260B0AB033c237Bde60
View handlers.cljs
(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
madvas / handlers.cljs
Created Oct 3, 2016
:contract/settings-loaded
View handlers.cljs
(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
madvas / handlers.cljs
Created Oct 3, 2016
:contract/on-tweet-loaded
View handlers.cljs
(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
madvas / handlers.cljs
Last active Oct 3, 2016
:contract/compiled-code-loaded
View handlers.cljs
(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
madvas / handlers.cljs
Last active Oct 3, 2016
:blockchain/my-addresses-loaded
View handlers.cljs
(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
View handlers.cljs
(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})
View handlers.cljs
(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]]}}))))
View handlers.cljs
(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]]}}))))
@madvas
madvas / handlers.cljs
Created Oct 3, 2016
:contract/fetch-compiled-code
View handlers.cljs
(reg-event-fx
:contract/fetch-compiled-code
interceptors
(fn [{:keys [db]} [on-success]]
{:http-xhrio {:method :get
:uri (gstring/format "/contracts/build/%s.json"
(get-in db [:contract :name]))
:timeout 6000
:response-format (ajax/json-response-format {:keywords? true})
:on-success on-success