shrub/base/cat/tree.hoon

::  Tree view recursive directory contents
::  
::::  /hoon/tree/cat
  ::
!:
::::
  ::
|=  [^ [pax=path fla=$|(~ [%full ~])] ~]
=+  len=(lent pax)
=+  rend=?^(fla dank:ut |=(a=path (dank:ut (slag len a))))
:-  %tang
|-  ^-  tang
=+  ark=;;(arch .^(cy/pax))
=-  ?~  q.ark  -
    [(rend pax) -]
%-  zing
%+  turn
  (sort (~(tap by r.ark)) aor)
|=  [a=@t ~] 
^$(pax (welp pax /[a]))