Skip to content

Instantly share code, notes, and snippets.

@ytaras

ytaras/gist:6352927

Last active December 21, 2015 19:18
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 ytaras/6352927 to your computer and use it in GitHub Desktop.
Save ytaras/6352927 to your computer and use it in GitHub Desktop.
Download ZIP
React on user input only after some amount of time
Raw
gistfile1.elm
import Graphics.Input as Input
(hashTagField, rawHashTag) = Input.field "Type your hash tag"
main = fields
fields = above <~ hashTagField ~ (asText <~ hashTag)
hashTag : Signal String
hashTag = delayed (2*second) [] rawHashTag
delayed : Time -> a -> Signal a -> Signal a
delayed time def signal =
let
stable = not <~ time `since` signal
tagged = (,) <~ signal ~ stable
filtered = fst <~ keepIf snd (def, False) tagged
in filtered
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment