mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 04:11:49 +03:00
19 lines
529 B
Plaintext
19 lines
529 B
Plaintext
:: Poke path [mark *] || Poke ship path [mark *]. Send message to an app.
|
|
!:
|
|
::::
|
|
::
|
|
|_ [hide ~]
|
|
++ mess ,[p=path q=[@ *] ~]
|
|
++ pock-poke-args
|
|
|= [ost=bone @ a=type b=?(mess [her=ship mess])]
|
|
=- :_(+>.$ [ost %pass / %g %mess -]~)
|
|
^- [p=[ship path] q=ship r=cage]
|
|
?^ |2.b [[her p]:b our -.q.b (slot 29 [a b])] :: +.&3
|
|
[[our p.b] our -.q.b (slot 13 [a b])] :: +.&2
|
|
::
|
|
++ pour
|
|
|= [ost=bone * sih=*]
|
|
~& poke-resp/;;([term term] [&1 &2]:sih)
|
|
:_(+> [ost %pass / %g %cide %$]~)
|
|
--
|