2016-01-26 03:52:58 +03:00
|
|
|
:: Tree view recursive directory contents
|
|
|
|
|
::
|
2016-02-11 03:41:28 +03:00
|
|
|
:::: /hoon/tree/gen
|
2016-01-26 03:52:58 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2016-01-26 03:52:58 +03:00
|
|
|
!:
|
|
|
|
|
::::
|
|
|
|
|
::
|
|
|
|
|
:- %say
|
|
|
|
|
|= {^ {pax/path fla/$@($~ {$full $~})} $~}
|
|
|
|
|
=+ len=(lent pax)
|
|
|
|
|
=+ rend=?^(fla smyt |=(a/path (smyt (slag len a))))
|
|
|
|
|
:- %tang %- flop
|
|
|
|
|
|- ^- tang
|
2016-02-17 04:35:52 +03:00
|
|
|
=+ ark=.^(arch cy+pax)
|
2016-01-26 03:52:58 +03:00
|
|
|
=- ?~ fil.ark -
|
|
|
|
|
[(rend pax) -]
|
|
|
|
|
%- zing
|
|
|
|
|
%+ turn
|
|
|
|
|
(sort (~(tap by dir.ark)) aor)
|
|
|
|
|
|= {a/@t $~}
|
|
|
|
|
^$(pax (welp pax /[a]))
|
