mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
15 lines
320 B
Plaintext
15 lines
320 B
Plaintext
!:
|
|
:: /===/bin/tree/hoon
|
|
|= ^
|
|
|= [pax=path fla=$|(~ [%full ~])]
|
|
=- ~[te/-]~
|
|
=+ len=(lent pax)
|
|
=+ rend=?~(fla |=(a=path +:(spud (slag len a))) spud)
|
|
|- ^- wain
|
|
=+ ark=;;(arch .^(cy/pax))
|
|
=- ?~ q.ark -
|
|
[(crip (rend pax)) -]
|
|
%- zing
|
|
%+ turn (~(tap by r.ark))
|
|
|=([a=@t ~] ^$(pax (weld pax `path`/[a])))
|