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
=+  .^(=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)]
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`
various: make all files build correctly 2022-05-15 08:49:10 +03:00			`=+ .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)`
clay: don't require head of foreign desks 2022-05-18 03:06:03 +03:00			`=/ =norm:clay`
			`?~ got=(~(get by cone) ship desk)`
			`*norm:clay`
			`nor.u.got`
various: make all files build correctly 2022-05-15 08:49:10 +03:00			`[%c %tomb %norm ship desk (~(put of norm) path keep)]`