1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-19 12:51:51 +03:00
urbit/main/app/grep/core.hook
2014-10-01 00:29:32 +00:00

37 lines
650 B
Plaintext

|%
++ sign
$% $: %g
$% [%nice ~]
[%rush %txt p=cord]
[%rush %tang p=(list tank)]
== == ==
--
::
!:
|_ [hid=hide arg=cord]
++ poke-grep-args
|= [ost=bone you=ship arg=cord ~]
=. ^arg arg
:_ +>.$
:~ [ost %pass / %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]]
==
++ peer
|=
*
`+>
++ pour
|= [ost=bone pax=path sih=sign]
?^ pax `+>.$
:_ +>.$
?- +<.sih
%nice
[ost %give %nice ~]~
%rush
=+ lin=?-(+>-.sih %txt p.sih, %tang (crip ~(ram re -.p.sih)))
?. =(arg lin) ~
%+ turn
(~(tap in (~(get ju pus.hid) /out)))
|=(a=bone [a %give +.sih])
==
--