mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
38 lines
699 B
Plaintext
38 lines
699 B
Plaintext
|
::
|
||
|
|
/+ 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
|
||
|
|
--
|