shrub/gen/tree.hoon
2016-02-11 16:33:22 -08:00

23 lines
408 B
Plaintext

:: Tree view recursive directory contents
::
:::: /hoon/tree/gen
::
/? 314
!:
::::
::
:- %say
|= {^ {pax/path fla/$@($~ {$full $~})} $~}
=+ len=(lent pax)
=+ rend=?^(fla smyt |=(a/path (smyt (slag len a))))
:- %tang %- flop
|- ^- tang
=+ ark=.^(arch cy+pax))
=- ?~ fil.ark -
[(rend pax) -]
%- zing
%+ turn
(sort (~(tap by dir.ark)) aor)
|= {a/@t $~}
^$(pax (welp pax /[a]))