Ryan Haywood haywoood

I hereby claim:

To claim this, I am signing this object:

	(ns cloud-billing.api
	(:require [cheshire.core :as json]
	[clojure.java.io :refer [reader resource]]
	[cloud-billing.config :as config]
	[io.pedestal.http :as server]
	[io.pedestal.http.route :as route]))

	(defn parse-stream
	“A helper that turns a body-stream into a map by consuming it and parsing it as
	json.”

	export const reusableConnect = (_localMapStateToProps, _localActions, globalActions = DEFAULT_MAP) => Component => {
	const localMapStateToProps = _localMapStateToProps \|\| defaultMapStateToProps
	const localActions = _localActions \|\| {}

	const _mapStateToProps = getInstanceState => (state, props) => {
	const localState = getInstanceState(state)
	const retVal = localMapStateToProps(localState, state, props)
	if (typeof(retVal) === "function") {
	return localMapStateToProps(getInstanceState)
	} else {

	// Translation of the clock example on http://reagent-project.github.io/

	import {state, ui, render} from "essence"

	const timerState = state({
	value: new Date(),
	color: "#f34"
	})

	setInterval(() => timerState.value = new Date(), 1000)

	(ns om-issue.core
	(:require [goog.dom :as gdom]
	[om.next :as om :refer-macros [defui]]
	[om.dom :as dom]))

	(def state {:numbers/selected nil
	:numbers/list [{:id 1 :name "one"}
	{:id 5 :name "five"}
	{:id 8 :name "eight"}
	{:id 9 :name "nine"}]})

	getRamda = ->
	script = document.createElement('script')
	script.type = 'text/javascript'
	script.src = 'https://rawgit.com/ramda/ramda/master/dist/ramda.js'
	document.head.appendChild(script)

	letters = ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]

	charToNumber = (char) ->
	idx = R.indexOf char, letters

	TU = React.addons.TestUtils

	# Component actions
	toggleAction = (state) ->
	val = state.get 'showSubhead'
	newState = state.set 'showSubhead', not val
	render newState

	incrementCounter = (state) ->
	val = state.get 'count'

	(ns brazil.core)

	(def TU (.. js/React -addons -TestUtils))

	(def d js/React.DOM)

	(defn toggle-action [state]
	(let [val (not (:show-subhead state))
	new-state (assoc state :show-subhead val)]
	(render new-state)))