1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-28 14:42:53 +03:00
shrub/pkg/arvo/app/time.hoon

38 lines
699 B
Plaintext
Raw Normal View History

2020-10-05 11:17:17 +03:00
::
/+ default-agent, verb
::
|%
::
+$ card card:agent:gall
--
^- agent:gall
|_ =bowl:gall
+* this .
def ~(. (default-agent this %|) bowl)
::
++ on-init [~ this]
++ on-save !>(~)
++ on-load _on-init
++ on-poke
|= [=mark =vase]
?+ mark !!
%noun :_ this
[%pass /(scot %da now.bowl) %arvo %b %wait `@da`+(now.bowl)]~
==
::
++ on-watch on-watch:def
++ on-leave on-leave:def
++ on-peek on-peek:def
++ on-agent on-agent:def
++ on-arvo
|= [=wire sign=sign-arvo]
^- (quip card _this)
?+ wire !!
[@ ~]
?> ?=(%wake +<.sign)
~& [%took `@dr`(sub now.bowl (slav %da i.wire))]
[~ this]
==
++ on-fail on-fail:def
--