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.
This commit is contained in:
Fang 2019-10-08 16:15:19 +02:00
parent b2365c1668
commit 10b17ff127
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -553,10 +553,11 @@
^- (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 ~ ~]
@ -861,9 +862,9 @@
++ show-glyph
|= [=glyph target=(unit target)]
^- (list move)
=- [prompt - ~]
:_ [prompt ~]
%- note
%+ weld "set: {[glyph ~]} -> "
%+ weld "set: {[glyph ~]} "
?~ target "nothing"
~(phat tr u.target)
--