::  Tree view recursive directory contents
::  
::::  /hook/core/tree/app
  ::
/+    sh-utils
!:
::::
  ::
|_  [hid=hide ~]
++  peer  ,_`.
++  poke--args
  %+  args-into-gate  .
  |=  [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]))
--