mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-18 22:31:59 +03:00
27 lines
754 B
Plaintext
27 lines
754 B
Plaintext
|
/- spider, docket
|
||
|
|
/+ strandio
|
||
|
|
=, strand=strand:spider
|
||
|
|
^- thread:spider
|
||
|
|
|= arg=vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
^- form:m
|
||
|
|
=+ !<([~ [=desk dir=path]] arg)
|
||
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
||
|
|
=/ home=path /(scot %p our.bowl)/[desk]/(scot %da now.bowl)
|
||
|
|
=+ .^(paths=(list path) %ct (weld home dir))
|
||
|
|
=/ =glob:docket
|
||
|
|
%- ~(gas by *glob:docket)
|
||
|
|
%+ turn paths
|
||
|
|
|= pax=path
|
||
|
|
^- [path mime]
|
||
|
|
:- (slag (lent dir) pax)
|
||
|
|
=/ mar=mark (rear pax)
|
||
|
|
=+ .^(vas=vase %cr (weld home pax))
|
||
|
|
=+ .^(=tube:clay %cc (weld home /[mar]/mime))
|
||
|
|
!<(mime (tube vas))
|
||
|
|
=/ =path /(cat 3 'glob-' (scot %uv (sham glob)))/glob
|
||
|
|
~& globbed+`(set ^path)`~(key by glob)
|
||
|
|
;< ~ bind:m (poke-our:strandio %hood drum-put+!>([path (jam glob)]))
|
||
|
|
(pure:m *vase)
|
||
|
|
|