mirror of
https://github.com/urbit/shrub.git
synced 2024-12-04 14:58:10 +03:00
20 lines
276 B
Plaintext
20 lines
276 B
Plaintext
|
::
|
||
|
:::: /hoon/time/app
|
||
|
::
|
||
|
/? 310
|
||
|
|%
|
||
|
++ card {$wait wire @da}
|
||
|
--
|
||
|
|_ {bowl $~}
|
||
|
++ poke-noun
|
||
|
|= *
|
||
|
:_ +>.$ :_ ~
|
||
|
[ost %wait /(scot %da now) +(now)]
|
||
|
::
|
||
|
++ wake
|
||
|
|= {wir/wire $~}
|
||
|
?> ?=({@ $~} wir)
|
||
|
~& [%took `@dr`(sub now (slav %da i.wir))]
|
||
|
[~ +>.$]
|
||
|
--
|