Skip to content

Instantly share code, notes, and snippets.

@hiredman

hiredman/scratch.clj

Created November 27, 2013 20:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hiredman/7682917 to your computer and use it in GitHub Desktop.
Save hiredman/7682917 to your computer and use it in GitHub Desktop.
Download ZIP
roku monad
Raw
scratch.clj
(run
(let-plan [_ go-home
netflix-app-id (lift (lookup-app-id "Netflix"))
_ (plan (str "launch/" netflix-app-id))
_ (plan (* 1000 10))
_ (plan :Down)
_ (plan 200)
_ (plan :Select)
_ (plan (* 1000 5))
_ (netflix-type-string "futurama")
sleep-and-right (lift (compose-plans (plan 200) (plan :Right)))
_ (repeat-plan 6 sleep-and-right)
_ (plan 200)
_ (plan :Select)
_ (plan (* 1000 5))
_ (plan :Play)]
(println "All planned")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment