mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
15 lines
409 B
Plaintext
15 lines
409 B
Plaintext
/- spider, docket
|
|
/+ strandio
|
|
=, strand=strand:spider
|
|
^- thread:spider
|
|
|= arg=vase
|
|
=/ m (strand ,vase)
|
|
^- form:m
|
|
=+ !<(jim=@ arg)
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
=/ home=path /(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)
|
|
=/ =path /(cat 3 'backup-' (scot %da now.bowl))/noun
|
|
:: XX remove prints
|
|
;< ~ bind:m (poke-our:strandio %hood drum-put+!>([path jim]))
|
|
(pure:m *vase)
|