mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
34 lines
672 B
Plaintext
34 lines
672 B
Plaintext
:: ConCATenate file listings
|
|
::
|
|
:::: /hoon#gen#cat
|
|
::
|
|
// /%%/ls#subdir
|
|
// /%/pretty
|
|
!:
|
|
::::
|
|
::
|
|
:- %say
|
|
|= {^ {arg+(list path)} $~}
|
|
=- tang#(flop `tang`(zing -))
|
|
%+ turn arg
|
|
|= pax+path
|
|
^- tang
|
|
=+ ark=;;(arch .^(%cy pax))
|
|
?^ fil.ark
|
|
?: =(%sched -:(flop pax))
|
|
[>;;((map ,@da cord) .^(%cx pax))<]~
|
|
[leaf#(spud pax) (pretty-file .^(%cx pax))]
|
|
?- dir.ark :: handle ambiguity
|
|
$~
|
|
[rose#[" " `~]^~[leaf#"~" (smyt pax)]]~
|
|
::
|
|
{{@t $~} $~ $~}
|
|
$(pax (welp pax /[p.n.dir.ark]))
|
|
::
|
|
*
|
|
=- [palm#[": " ``~]^-]~
|
|
:~ rose#[" " `~]^~[leaf#"*" (smyt pax)]
|
|
`tank`(subdir pax dir.ark)
|
|
==
|
|
==
|