shrub/gen/cat.hoon

34 lines
672 B
Plaintext
Raw Normal View History

2015-05-28 05:46:58 +03:00
:: ConCATenate file listings
::
2016-02-05 06:05:37 +03:00
:::: /hoon/cat/gen
2015-05-28 05:46:58 +03:00
::
// /%%/ls+subdir
// /%/pretty
2015-05-28 05:46:58 +03:00
!:
::::
::
2015-09-12 03:24:51 +03:00
:- %say
|= {^ {arg/(list path)} $~}
=- tang+(flop `tang`(zing -))
2015-05-28 05:46:58 +03:00
%+ turn arg
|= pax/path
2015-05-28 05:46:58 +03:00
^- tang
=+ ark=;;(arch .^(%cy pax))
2015-09-08 23:15:40 +03:00
?^ fil.ark
2015-06-17 04:06:58 +03:00
?: =(%sched -:(flop pax))
[>;;((map ,@da cord) .^(%cx pax))<]~
[leaf+(spud pax) (pretty-file .^(%cx pax))]
2015-09-08 23:15:40 +03:00
?- dir.ark :: handle ambiguity
$~
[rose+[" " `~]^~[leaf+"~" (smyt pax)]]~
::
{{@t $~} $~ $~}
2015-09-08 23:15:40 +03:00
$(pax (welp pax /[p.n.dir.ark]))
::
2015-05-28 05:46:58 +03:00
*
=- [palm+[": " ``~]^-]~
:~ rose+[" " `~]^~[leaf+"*" (smyt pax)]
2015-09-08 23:15:40 +03:00
`tank`(subdir pax dir.ark)
2015-05-28 05:46:58 +03:00
==
==