urbit/pkg/landscape/ted/keep.hoon

15 lines
409 B
Plaintext
Raw Normal View History

/- 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)