urbit/main/app/mv/core.hook
2014-12-18 22:58:15 +00:00

22 lines
429 B
Plaintext

!:
|_ [hid=hide ~]
++ poke-mv-args
|= [ost=bone you=ship input=path output=path ~]
:_ +>.$
:* :^ ost %pass /mv
:^ %c %info our.hid
(furl (foal output .^(%cx input)) (fray input))
[ost %pass / %g %cide %$]
[ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
:^ ost %give %rush
:- %tang :_ ~
leaf/"moved"
==
++ peer
|=
*
`+>
--