Shuumatsu’s gists

Shuumatsu / index.html

Created March 20, 2017 16:44

JSONP

	<div id="data"></div>

	<body>
	<script>
	const div = document.querySelector('div')
	const print = arg => div.insertAdjacentText('beforeend', arg)
	</script>
	<script src="https://en.wikipedia.org/w/api.php?action=opensearch&format=json&callback=print&search=google"></script>

Shuumatsu / parse-es6-template.js

Created July 24, 2017 15:19 — forked from smeijer/parse-es6-template.js

ES6 template string parser

	function get(path, obj, fb = `$\{${path}}`) {
	return path.split('.').reduce((res, key) => res[key] \|\| fb, obj);
	}

	function parseTpl(template, map, fallback) {
	return template.replace(/\$\{.+?}/g, (match) => {
	const path = match.substr(2, match.length - 3).trim();
	return get(path, map, fallback);
	});
	}

Shuumatsu / globalizeSelectors.js

Created September 13, 2017 08:13

	import { adjust, curryN, length, map } from 'ramda'

	const globalize = transform => selector =>
	curryN(length(selector),
	(...args) => selector(...adjust(transform, -1, args))
	)

	export default (localStateTransform, selectors) =>
	map(globalize(localStateTransform), selectors)

Shuumatsu / url-join.js

Created September 21, 2017 07:57

	import {
	compose, map, ifElse, filter, isEmpty,
	endsWith, init, identity, join
	} from 'ramda'

	const urljoin = compose(
	join('/'),
	map(ifElse(endsWith('/'), init, identity)),
	filter(isEmpty)
	)

Shuumatsu / setSearchParam.js

Created September 21, 2017 07:57

	const ensureStartsWith = (start, str) => str.startsWith(start) ? str : start + str

	const setSearchParam = searchStr =>
	(key, value) => {
	if (!value) return searchStr

	const searchParams = new URLSearchParams(searchStr)
	searchParams.set(key, value)

	const newSearchStr =

Shuumatsu / createReducer.js

Created September 21, 2017 07:58

	import { propOr, identity } from 'ramda'

	const createReducer = (initialState, handlers) =>
	(state = initialState, action) =>
	propOr(identity, action.type, handlers)(state, action)

	export default createReducer

Shuumatsu / ShiftString.hs

Created October 8, 2017 07:50

	module ShiftString where

	import Data.Char

	data CharacterNumber
	= Lower Int
	\| Upper Int

	add' :: CharacterNumber -> Int -> CharacterNumber
	add' (Lower a) b = Lower (a + b)

Shuumatsu / ValidateCCNumbers.hs

Created October 8, 2017 09:05

	module ValidateCCNumbers where

	toDigits :: Integer -> [Int]
	toDigits 0 = [0]
	toDigits n
	\| n > 0 =
	if a > 0
	then toDigits a ++ [fromInteger b :: Int]
	else [fromInteger b :: Int]
	where

Shuumatsu / ChurchNumberals.hs

Created October 9, 2017 08:15

	module ChurchNumberals where

	type ChurchNumberals a = (a -> a) -> a -> a

	one :: ChurchNumberals a
	one f = f

	two :: ChurchNumberals a
	two f = f . f

Shuumatsu / Themer.js

Last active October 29, 2017 07:39

	import React, { PureComponent } from 'react'
	import PropTypes from 'prop-types'
	import { autobind } from 'core-decorators'
	import { path, omit, forEach, compose, curry } from 'ramda'

	const themeManagers = new WeakMap()

	@autobind
	export class ThemeManager {

为世人降下祝福 Shuumatsu