Skip to content

Instantly share code, notes, and snippets.

Avatar

Matus Lestan madvas

View GitHub Profile
@madvas
madvas / gist:8e1d8c680a35a2d45b09
Created May 6, 2015
Applescript escape XML special chars
View gist:8e1d8c680a35a2d45b09
on escapeString(toEscape)
set res to replaceChars(toEscape, "\"", """)
set res to replaceChars(res, "'", "'")
set res to replaceChars(res, "&", "&")
set res to replaceChars(res, ">", ">")
set res to replaceChars(res, "<", "&lt;")
return res
end escapeString
on replaceChars(this_text, search_string, replacement_string)
@madvas
madvas / gist:2669f893f1bce329161a
Created May 7, 2015
Applescript command + Tab function
View gist:2669f893f1bce329161a
on cmdTab()
tell application "System Events"
key down command
keystroke tab
key up command
end tell
end cmdTab
@madvas
madvas / SimpleTwitter.sol
Created Oct 3, 2016
Solidity SimpleTwitter
View SimpleTwitter.sol
pragma solidity ^0.4.1;
import "strings.sol";
contract SimpleTwitter {
using strings for *;
address public developer;
uint16 public maxTweetLength;
uint16 public maxNameLength;
@madvas
madvas / handlers.cljs
Created Oct 3, 2016
re-frame :blockchain/unlock-account
View handlers.cljs
(reg-event-fx
:blockchain/unlock-account
interceptors
(fn [{:keys [db]} [address password]]
{:web3-fx.blockchain/fns
{:web3 (:web3 db)
:fns [[web3-personal/unlock-account address password 999999
:blockchain/account-unlocked
: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
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
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
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})
@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))}))))