chat-cli: Update prompt on-create
Creating a mailbox would refresh the prompt before setting a new
audience, instead of after. This change corrects the behavior.
Also updates glyph binding code and print style.
^- (quip move _this)
::TODO check if already exists
=/ =target [our-self path]
+ =. audience [target ~ ~]
=^ moz this
?. ?=(^ gyf) [~ this]
(bind-glyph u.gyf target)
- =- [[- moz] this(audience [target ~ ~])]
+ =- [[- moz] this]
%^ act %do-create %chat-view
:- %chat-view-action
[%create path %channel ~ ~]
++ show-glyph
|= [=glyph target=(unit target)]
^- (list move)
- =- [prompt - ~]
+ :_ [prompt ~]
%- note
- %+ weld "set: {[glyph ~]} -> "
+ %+ weld "set: {[glyph ~]} "
?~ target "nothing"
~(phat tr u.target)
--
