urbit/gen/ls/subdir.hoon

::  Filesystem iterator XX move to lib/
::
::::  /hoon/subdir/ls/gen
  ::
/?    310
|%
++  subdir
  |=  {vane/?($c $g) 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]))
--