Skip to content

Instantly share code, notes, and snippets.

@swannodette

swannodette/words.cljs

Last active December 21, 2015 15:58
Show Gist options
  • Save swannodette/6330038 to your computer and use it in GitHub Desktop.
Save swannodette/6330038 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
words.cljs
(defn words-proc [words button interval interval-control scrub]
(go (loop [idx 0]
(show-word! words idx)
(let [[v c] (alts! [button interval scrub])
(condp = c
button (do (>! interval-control v)
(recur idx))
interval (recur (inc idx))
scrub (do (>! interval-control :stop)
(recur v)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment