2015-01-11 11:00:36 +03:00
|
|
|
:: Tree view recursive directory contents
|
|
|
|
|
::
|
|
|
|
|
:::: /hook/core/tree/app
|
|
|
|
|
::
|
2015-01-12 04:13:34 +03:00
|
|
|
/+ sh-utils
|
2015-01-10 02:21:28 +03:00
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2015-01-10 02:21:28 +03:00
|
|
|
|_ [hid=hide ~]
|
2015-01-10 05:21:25 +03:00
|
|
|
++ peer ,_`.
|
2015-01-11 11:00:36 +03:00
|
|
|
++ poke--args
|
2015-01-10 04:28:17 +03:00
|
|
|
%+ args-into-gate .
|
|
|
|
|
|= [pax=path fla=$|(~ [%full ~])]
|
|
|
|
|
=+ len=(lent pax)
|
|
|
|
|
=+ rend=?^(fla dank:ut |=(a=path (dank:ut (slag len a))))
|
|
|
|
|
:- %tang
|
2015-01-20 00:54:49 +03:00
|
|
|
|- ^- tang
|
2015-01-10 04:28:17 +03:00
|
|
|
=+ ark=;;(arch .^(cy/pax))
|
|
|
|
|
=- ?~ q.ark -
|
|
|
|
|
[(rend pax) -]
|
|
|
|
|
%- zing
|
|
|
|
|
%+ turn
|
|
|
|
|
(sort (~(tap by r.ark)) aor)
|
|
|
|
|
|= [a=@t ~]
|
|
|
|
|
^$(pax (welp pax /[a]))
|
2015-01-10 02:21:28 +03:00
|
|
|
--
|
