mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 04:11:49 +03:00
28 lines
540 B
Plaintext
28 lines
540 B
Plaintext
|
!:
|
||
|
|
|_ [hid=hide ~]
|
||
|
|
++ poke-cat-args
|
||
|
|
|= [ost=bone you=ship arg=(list path)]
|
||
|
|
:_ +>.$
|
||
|
|
:* [ost %give %nice ~]
|
||
|
|
%+ turn (~(tap by sup.hid))
|
||
|
|
|= [ost=bone *]
|
||
|
|
:^ ost %give %rush
|
||
|
|
:- %tang
|
||
|
|
%- flop
|
||
|
|
^- (list tank)
|
||
|
|
%- zing
|
||
|
|
%+ turn arg
|
||
|
|
|= pax=path
|
||
|
|
=+ ark=;;(arch .^(%cy pax))
|
||
|
|
?~ q.ark ~[leaf/"file {<pax>} not available"]
|
||
|
|
:- leaf/(spud pax)
|
||
|
|
%+ turn (lore ;;(,@t .^(%cx pax)))
|
||
|
|
|= a=cord
|
||
|
|
leaf/(trip a)
|
||
|
|
==
|
||
|
|
++ peer
|
||
|
|
|=
|
||
|
|
*
|
||
|
|
`+>
|
||
|
|
--
|