chat-cli: properly decode double-bound glyphs

Resolves glyph to most recently seen target.
This commit is contained in:
Fang 2019-10-10 22:39:41 +02:00
parent cf24f4a80e
commit e01d59ae4c
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -252,19 +252,18 @@
|= =glyph
^- (unit target)
=+ lax=(~(get ju binds) glyph)
:: no circle.
:: no circle
?: =(~ lax) ~
:: single circle.
?: ?=([* ~ ~] lax) `n.lax
:: in case of multiple audiences, pick the most recently active one.
|- ^- (unit target)
~& %multi-bind-support-missing
?~ grams ~
~
::TODO
:: =+ pan=(silt ~(tap in aud.i.grams))
:: ?: (~(has in lax) pan) `pan
:: $(grams t.grams)
%- some
:: single circle
?: ?=([* ~ ~] lax) n.lax
:: in case of multiple audiences, pick the most recently active one
|- ^- target
?~ grams -:~(tap in lax)
=* source source.i.grams
?: (~(has in lax) source)
source
$(grams t.grams)
:: +read-envelope: add envelope to state and show it to user
::
++ read-envelope