urbit/pkg/arvo/gen/aqua/snap-fleet.hoon
2020-11-30 13:15:59 -08:00

9 lines
238 B
Plaintext

/- aquarium
=, aquarium
:- %say
|= [[now=@da eny=@uvJ bec=beak] [label=@ta ships=(list ship)] ~]
:- %aqua-events
=? ships ?=(~ ships)
.^((list ship) %gx /(scot %p p.bec)/aqua/(scot %da now)/ships/noun)
[%snap-ships label ships]~