mirror of
https://github.com/urbit/shrub.git
synced 2024-12-02 08:55:07 +03:00
:time app, measures time between poke and subsequent wakeup
This commit is contained in:
parent
4903cf6411
commit
bacc213671
19
app/time.hoon
Normal file
19
app/time.hoon
Normal file
@ -0,0 +1,19 @@
|
||||
::
|
||||
:::: /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))]
|
||||
[~ +>.$]
|
||||
--
|
Loading…
Reference in New Issue
Block a user