DrBoolean · January 7, 2016 21:04 · Jan 7, 2016
diff --git a/binary_baby.js b/binary_baby.js
@@ -0,0 +1,29 @@
+import State, {get, put, modify} from 'fantasy-states'
+import {prop, compose, map, chain, merge, always} from 'ramda'
+
+
+// Unfortunately Binary Gendered Baby Page
+//==========================================
+
+const babies = [{id: 2, name: 'Anjali', sex: 'F'}, {id: 3, name: 'Antonio', sex: 'M'}]
+
+// isFemale :: Baby -> Bool
+const isFemale = b => b.sex === 'F'
+
+// findBaby :: Int -> Baby
+const findBaby = i => babies[i]
+
+// updatePrefs :: Baby -> State Prefs Baby
+const updatePrefs = b => modify(merge({bgColor: isFemale(b) ? 'pink' : 'blue'})).map(always(b))
+
+// html :: Baby -> Prefs -> Html
+const html = (b, prefs) => `<div style={background-color: ${prefs.bgColor}, font: ${prefs.font} }>${b.name}</div>`
+
+// drawPage :: Baby -> State Prefs Html
+const drawPage = b => get.map(prefs => html(b, prefs))
+
+// app :: State Int Html
+const app = compose(chain(drawPage), chain(updatePrefs), map(findBaby))
+
+app(State.of(0)).evalState({font: 'cursive'})
+// <div style={background-color: pink, font: cursive }>Anjali</div>