Skip to content

Instantly share code, notes, and snippets.

@madvas
madvas / gist:8e1d8c680a35a2d45b09
Created May 6, 2015 20:08
Applescript escape XML special chars
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 06:50
Applescript command + Tab function
on cmdTab()
tell application "System Events"
key down command
keystroke tab
key up command
end tell
end cmdTab
@madvas
madvas / partial-right.clj
Created June 13, 2015 12:40
Clojure partial-right (Like a partial, but arguments are added to the end)
(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
madvas / cljs-react-material-ui-reagent-example.cljs
Created May 13, 2016 16:26
Snippet example of using library cljs-react-material-ui with Reagent
(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
madvas / SimpleTwitter.sol
Created October 3, 2016 13:33
Solidity SimpleTwitter
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 October 3, 2016 14:20
re-frame :blockchain/unlock-account
(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 October 3, 2016 15:17
:contract/fetch-compiled-code
(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
@madvas
madvas / handlers.cljs
Created October 3, 2016 16:23
:initialize
(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 October 3, 2016 16:25
initialize
(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 October 3, 2016 17:01
initialize
(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})