::  Display directory contents
::
::::  /hoon/show-dir/lib
  ::
/?    310
|=  [vane=?(%g %c) pax=path des=(map @t ~)]
^-  tank
:+  %rose  [" " `~]
%+  turn  (sort ~(tap by des) aor)
|=  [kid=@ta ~]
=+  paf=`path`/[kid]
=-  :+  %rose  ["/" ~ ?:(dir "/" ~)]
    (turn paf |=(a=knot leaf+(trip a)))
|-  ^-  [dir=? paf=path]
=+  arf=.^(arch (cat 3 vane %y) (weld pax paf))
?^  fil.arf
  [| paf]
?~  dir.arf
  [& paf]  ::  !!
?.  ?=([^ ~ ~] dir.arf)
  [& paf]
$(paf (welp paf /[p.n.dir.arf]))