shrub/pkg/arvo/gen/ames-keys.hoon

12 lines
290 B
Plaintext
Raw Normal View History

2023-05-12 10:20:43 +03:00
:: Print keys for a ship, as stored in %ames
::
:- %say
|= [[now=time @ our=ship ^] [=ship ~] ~]
=+ .^ =ship-state:ames
%ax /(scot %p our)//(scot %da now)/peers/(scot %p ship)
==
:- %noun
2023-05-12 11:27:30 +03:00
?. ?=(%known -.ship-state)
%ship-still-alien
[life=life rift=rift]:+.ship-state