mirror of
https://github.com/urbit/shrub.git
synced 2024-12-29 23:23:52 +03:00
12 lines
320 B
Plaintext
12 lines
320 B
Plaintext
:: Add rule to tombstone policy
|
|
::
|
|
:- %say
|
|
|= [[now=@da eny=@uvJ bec=beak] [=ship =desk =path keep=? ~] ~]
|
|
:- %helm-pass
|
|
=+ .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)
|
|
=/ =norm:clay
|
|
?~ got=(~(get by cone) ship desk)
|
|
*norm:clay
|
|
nor.u.got
|
|
[%c %tomb %norm ship desk (~(put of norm) path keep)]
|