shrub/gen/tree.hoon

::  Tree view recursive directory contents
::  
::::  /hoon/tree/gen
  ::
!:
::::
  ::
:-  %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]))
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`:: Tree view recursive directory contents`
			`::`
cat/dog to gen collapse 2015-09-12 00:15:25 +03:00			`:::: /hoon/tree/gen`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`::`
			`!:`
			`::::`
			`::`
rename generators to %say, %ask, %get 2015-09-12 03:24:51 +03:00			`:- %say`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`\|= [^ [pax=path fla=$\|(~ [%full ~])] ~]`
			`=+ len=(lent pax)`
stack shortening rc1 2015-11-29 01:44:29 +03:00			`=+ rend=?^(fla smyt \|=(a=path (smyt (slag len a))))`
rectify tree and cat usage of %tang 2015-06-17 00:36:04 +03:00			`:- %tang %- flop`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`\|- ^- tang`
			`=+ ark=;;(arch .^(cy/pax))`
fix tree, per-day talk output format, rendering 2015-09-17 01:51:31 +03:00			`=- ?~ fil.ark -`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`[(rend pax) -]`
			`%- zing`
			`%+ turn`
fix tree, per-day talk output format, rendering 2015-09-17 01:51:31 +03:00			`(sort (~(tap by dir.ark)) aor)`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`\|= [a=@t ~]`
			`^$(pax (welp pax /[a]))`