2015-05-28 05:46:58 +03:00
|
|
|
:: ConCATenate file listings
|
2016-12-16 09:34:01 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/cat/gen
|
2015-05-28 05:46:58 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2017-11-29 23:14:58 +03:00
|
|
|
/+ pretty-file, show-dir
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2015-05-28 05:46:58 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2015-09-12 03:24:51 +03:00
|
|
|
:- %say
|
2020-11-25 23:22:55 +03:00
|
|
|
|= {^ {arg=(list path)} vane=?(%g %c)}
|
2016-01-26 03:52:58 +03:00
|
|
|
=- tang+(flop `tang`(zing -))
|
2015-05-28 05:46:58 +03:00
|
|
|
%+ turn arg
|
2020-11-25 23:22:55 +03:00
|
|
|
|= pax=path
|
2015-05-28 05:46:58 +03:00
|
|
|
^- tang
|
2016-02-19 02:52:34 +03:00
|
|
|
=+ ark=.^(arch (cat 3 vane %y) pax)
|
2015-09-08 23:15:40 +03:00
|
|
|
?^ fil.ark
|
2015-06-17 04:06:58 +03:00
|
|
|
?: =(%sched -:(flop pax))
|
2016-03-08 01:37:54 +03:00
|
|
|
[>.^((map @da cord) (cat 3 vane %x) pax)<]~
|
2016-02-19 02:52:34 +03:00
|
|
|
[leaf+(spud pax) (pretty-file .^(noun (cat 3 vane %x) pax))]
|
2015-09-08 23:15:40 +03:00
|
|
|
?- dir.ark :: handle ambiguity
|
2018-03-19 07:18:20 +03:00
|
|
|
~
|
2016-01-26 03:52:58 +03:00
|
|
|
[rose+[" " `~]^~[leaf+"~" (smyt pax)]]~
|
|
|
|
|
::
|
2018-03-19 07:18:20 +03:00
|
|
|
{{@t ~} ~ ~}
|
2015-09-08 23:15:40 +03:00
|
|
|
$(pax (welp pax /[p.n.dir.ark]))
|
2016-01-26 03:52:58 +03:00
|
|
|
::
|
2015-05-28 05:46:58 +03:00
|
|
|
*
|
2016-01-26 03:52:58 +03:00
|
|
|
=- [palm+[": " ``~]^-]~
|
2016-12-16 09:34:01 +03:00
|
|
|
:~ rose+[" " `~]^~[leaf+"*" (smyt pax)]
|
2017-11-29 23:14:58 +03:00
|
|
|
`tank`(show-dir vane pax dir.ark)
|
2015-05-28 05:46:58 +03:00
|
|
|
==
|
|
|
|
|
==
|
