mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-10 10:05:09 +03:00
16 lines
365 B
Plaintext
16 lines
365 B
Plaintext
|
:: Display tombstone policies
|
||
|
|
::
|
||
|
|
=, clay
|
||
|
|
:- %say
|
||
|
|
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
|
||
|
|
:- %tang
|
||
|
|
=+ .^(=cone %cx /(scot %p p.bec)//(scot %da now)/domes)
|
||
|
|
%- flop ^- tang
|
||
|
|
%- zing
|
||
|
|
%+ turn ~(tap by cone)
|
||
|
|
|= [[=ship =desk] dome tom=(map tako norm) nor=norm]
|
||
|
|
:- leaf+"{<ship>}/{<desk>}:"
|
||
|
|
%+ turn ~(tap of nor)
|
||
|
|
|= [=path keep=?]
|
||
|
|
leaf+" {<path>}: {<keep>}"
|