shrub/main/app/tree/core.hook

//  /===lib/sh-utils
!:
|_  [hid=hide ~]
++  peer  ,_`.
++  poke-tree-args
  %+  args-into-gate  .
  |=  [pax=path fla=$|(~ [%full ~])]
  =+  len=(lent pax)
  =+  rend=?^(fla dank:ut |=(a=path (dank:ut (slag len a))))
  :-  %tang
  |-  ^-  (list tank)
  =+  ark=;;(arch .^(cy/pax))
  =-  ?~  q.ark  -
      [(rend pax) -]
  %-  zing
  %+  turn
    (sort (~(tap by r.ark)) aor)
  |=  [a=@t ~] 
  ^$(pax (welp pax /[a]))
--
Added missed dependency 2015-01-11 04:33:01 +03:00			`// /===lib/sh-utils`
Added tree traversal to les, cat; +tree 2015-01-10 02:21:28 +03:00			`!:`
			`\|_ [hid=hide ~]`
refactored ++peer boilerplate 2015-01-10 05:21:25 +03:00			++ peer ,_`.
Added tree traversal to les, cat; +tree 2015-01-10 02:21:28 +03:00			`++ poke-tree-args`
Factored out gate-class poke functionality 2015-01-10 04:28:17 +03:00			`%+ args-into-gate .`
			`\|= [pax=path fla=$\|(~ [%full ~])]`
			`=+ len=(lent pax)`
			`=+ rend=?^(fla dank:ut \|=(a=path (dank:ut (slag len a))))`
			`:- %tang`
			`\|- ^- (list tank)`
			`=+ ark=;;(arch .^(cy/pax))`
			`=- ?~ q.ark -`
			`[(rend pax) -]`
			`%- zing`
			`%+ turn`
			`(sort (~(tap by r.ark)) aor)`
			`\|= [a=@t ~]`
			`^$(pax (welp pax /[a]))`
Added tree traversal to les, cat; +tree 2015-01-10 02:21:28 +03:00			`--`