gen: add +sponsor generator

Add a new generator +sponsor that encapsulates the logic of invoking
`(sein:title our now our)` to get the sponsor of the current ship.
This commit is contained in:
ronreg-ribdev 2020-11-19 00:54:35 -08:00
parent a9d6811299
commit 4a4e220e11

View File

@ -0,0 +1,5 @@
:: Print the sponsor of this ship
:- %say
|= [[now=time @ our=ship ^] * ~]
:- %ship
(sein:title our now our)