urbit/pkg/arvo/gen/hood/norm.hoon

::  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)]
clay: seek wip 2022-04-13 07:02:37 +03:00			`:: Add rule to tombstone policy`
			`::`
clay: add \|norm 2022-04-09 07:32:14 +03:00			`:- %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))`
arvo: rename +de to +of 2022-04-23 03:55:42 +03:00			`[%c %tomb %norm ship desk (~(put of nor.dome) path keep)]`