urbit/main/app/grep/core.hook

37 lines
650 B
Plaintext
Raw Normal View History

2014-09-27 05:01:17 +04:00
|%
++ sign
$% $: %g
$% [%nice ~]
[%rush %txt p=cord]
2014-10-01 04:29:32 +04:00
[%rush %tang p=(list tank)]
2014-09-27 05:01:17 +04:00
== == ==
--
::
!:
|_ [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
2014-10-01 04:29:32 +04:00
%nice
2014-09-27 05:01:17 +04:00
[ost %give %nice ~]~
%rush
2014-10-01 04:29:32 +04:00
=+ lin=?-(+>-.sih %txt p.sih, %tang (crip ~(ram re -.p.sih)))
?. =(arg lin) ~
2014-09-27 05:01:17 +04:00
%+ turn
(~(tap in (~(get ju pus.hid) /out)))
|=(a=bone [a %give +.sih])
==
--