Skip to content

Instantly share code, notes, and snippets.

@belisarius222
Last active January 11, 2018 19:55
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 belisarius222/30014551e31f9ee96607aaeb3cf4e737 to your computer and use it in GitHub Desktop.
Save belisarius222/30014551e31f9ee96607aaeb3cf4e737 to your computer and use it in GitHub Desktop.
simple reminder app
/? 310
::
:: models
::
|%
+= move (pair bone card)
+= card [%wait wire p=@da]
--
::
:: main app door
|_ [bol=bowl:gall ~]
++ poke-reminder
|= [delta=@dr message=@t]
^- [(list move) _+>]
::
=/ target `@da`(add now.bol delta)
=/ wir /[message]/[(scot %da target)]
[[ost.bol %wait wir target]~ +>.$]
::
++ wake
|= [wir=wire ~]
^- [(list move) _+>]
::
~& reminder+wir
[~ +>.$]
--
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment