Now also displays handles if there is no local nickname for a ship.
(Only if ;set nicks)
::> get nick for ship, or shortname if no nick.
::> left-pads with spaces.
::
- |. ^- tape
- =+ nym=(~(get by nicks) hos.one)
- ?~ nym
- (cr-curt |)
- =+ raw=(scag 14 (trip u.nym))
+ |= aud/audience
+ ^- tape
+ =/ nic/(unit cord)
+ ?: (~(has by nicks) hos.one)
+ (~(get by nicks) hos.one)
+ %- ~(rep in aud)
+ |= {cir/circle han/(unit cord)}
+ ?^ han han
+ =+ gop=(~(get by remotes) cir)
+ ?~ gop ~
+ han.man:(fall (~(get by u.gop) hos.one) *status)
+ ?~ nic (cr-curt |)
+ =+ raw=(scag 14 (trip u.nic))
=+ len=(sub 14 (lent raw))
(weld (reap len ' ') raw)
::
:: render the author.
=/ nom/tape
?: (~(has in sef) %nicks)
- (~(cr-nick cr [who %inbox]))
+ (~(cr-nick cr [who %inbox]) aud)
(~(cr-curt cr [who %inbox]) |)
:: regular indent.
=/ den/tape
