urbit/main/app/poke/core.hook

15 lines
409 B
Plaintext

!:
|_ [hide ~]
++ mess ,[p=path q=[@ *] ~]
++ pock-poke-args
|= [ost=bone @ a=type b=?(mess [her=ship mess])]
=- :_(+>.$ [ost %pass / %g %mess -]~)
?^ |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 %$]~)
--