shrub/main/app/mv/core.hook

18 lines
323 B
Plaintext
Raw Normal View History

2015-01-12 04:13:34 +03:00
:: MoVe file from one location to another
::
:::: /hook/core/mv/app
::
/+ sh-utils
2014-10-03 04:38:30 +04:00
!:
2015-01-12 04:13:34 +03:00
::::
::
2014-10-03 04:38:30 +04:00
|_ [hid=hide ~]
2015-01-10 05:21:25 +03:00
++ peer ,_`.
2015-01-12 04:13:34 +03:00
++ poke--args
%+ gate-bang
|= [input=path output=path ~]
:^ %c %info our.hid
(furl (foal output .^(%cx input)) (fray input))
(args-into-gate . ,_[%txt 'moved'])
2014-10-03 04:38:30 +04:00
--