urbit/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  %-  flop
|-  ^-  tang
=+  ark=;;(arch .^(cy/pax))
=-  ?~  q.ark  -
    [(rend pax) -]
%-  zing
%+  turn
  (sort (~(tap by r.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`
			`::`
path refactoring 2015-06-05 03:27:01 +03:00			`:::: /hoon/tree/cat`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`::`
			`!:`
			`::::`
			`::`
			`\|= [^ [pax=path fla=$\|(~ [%full ~])] ~]`
			`=+ len=(lent pax)`
			`=+ rend=?^(fla dank:ut \|=(a=path (dank:ut (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))`
			`=- ?~ q.ark -`
			`[(rend pax) -]`
			`%- zing`
			`%+ turn`
			`(sort (~(tap by r.ark)) aor)`
			`\|= [a=@t ~]`
			`^$(pax (welp pax /[a]))`