madvas

(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

pragma solidity ^0.4.1;

import "strings.sol";

contract SimpleTwitter {
    using strings for *;

    address public developer;
    uint16 public maxTweetLength;
    uint16 public maxNameLength;

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

on cmdTab()
	tell application "System Events"
		key down command
		keystroke tab
		key up command
	end tell
end cmdTab

madvas

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)