mirror of
https://github.com/urbit/shrub.git
synced 2024-12-25 13:04:17 +03:00
13 lines
350 B
Plaintext
13 lines
350 B
Plaintext
:: Add rule to tombstone policy
|
|
::
|
|
:- %say
|
|
|= [[now=@da eny=@uvJ bec=beak] [=ship =desk =path keep=? ~] ~]
|
|
:- %helm-pass
|
|
=/ =case:clay
|
|
?: =(p.bec ship)
|
|
da+now
|
|
=+ .^([=@ud @da] %cs /(scot %p ship)/[desk]/1/late)
|
|
ud+ud
|
|
=+ .^(=dome:clay %cv /(scot %p ship)/[desk]/(scot case))
|
|
[%c %tomb %norm ship desk (~(put of nor.dome) path keep)]
|