Skip to content

Instantly share code, notes, and snippets.

View stevekrouse's full-sized avatar

Steve Krouse stevekrouse

265 followers · 24 following
View GitHub Profile
@stevekrouse
stevekrouse / cycle-flappy-no-state.js
Created April 10, 2018 10:56
import {run} from '@cycle/run';
import {makeCanvasDriver, rect, text} from 'cycle-canvas';
import { makeKeyboardDriver } from 'cycle-keyboard'
import xs from 'xstream'
import fromEvent from 'xstream/extra/fromEvent'
import split from 'xstream/extra/split'
import throttle from 'xstream/extra/throttle'
import concat from 'xstream/extra/concat'
@stevekrouse
stevekrouse / sdf.md
Created May 21, 2018 18:15

The rabbitholes never end!

  • TOC {: toc }

Artist-Centric Programming Tools

Friday night, Twitter sent me a notification to look at this tweet:

https://t.co/nqIwhoOc39Recording of our presentation on Artist-Centric Programming Tools at #chi2018— Jennifer Jacobs (@jsquare) May 18, 2018

@stevekrouse
stevekrouse / journal.md
Created June 4, 2018 17:09

Friday 6/1/18

  • TOC

{: toc }

@stevekrouse
stevekrouse / casual-06-02-18.md
Created July 2, 2018 19:25
@stevekrouse
stevekrouse / fuzzyset_gramCounter.js
Last active July 4, 2018 20:08
group = xs => xs.reduce((rv, x) => {
(rv[x] = (rv[x] || [])).push(x);
return rv;
},
{});
objMap = (oldObj, func) => Object.keys(oldObj).reduce(function(newObj, current) {
newObj[current] = func(oldObj[current])
return newObj;
},
{});
@stevekrouse
stevekrouse / fuzzyset_gramCounter-original.js
Created July 4, 2018 20:19
_nonWordRe = /[^a-zA-Z0-9\u00C0-\u00FF, ]+/g;
_iterateGrams = function(value, gramSize) {
gramSize = gramSize || 2;
var simplified = '-' + value.toLowerCase().replace(_nonWordRe, '') + '-',
lenDiff = gramSize - simplified.length,
results = [];
if (lenDiff > 0) {
for (var i = 0; i < lenDiff; ++i) {
value += '-';
}
@stevekrouse
stevekrouse / comprehensible-reactivity-07-04-18.md
Created July 4, 2018 20:58
@stevekrouse
stevekrouse / asdf.md
Last active July 12, 2018 20:08 
count = 0

update msg count =
  case msg of
    Increment ->
      count + 1
@stevekrouse
stevekrouse / reflex-button.hs
Created July 17, 2018 14:03
clickEvents <- intButton clicksCount
clicksCount <- foldDyn (\accumulator currentValue -> accumulator + 1) 0 clickEvents
@stevekrouse
stevekrouse / elm-button.elm
Created July 17, 2018 14:04
-- model
count = 0
--reducer
update msg count =
case msg of
Increment ->
count + 1
-- view