From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 19 Mar 2021 17:39:18 +0000 (-0700)
Subject: ui.tools.listener.completion: display glyph for CHAR: completions.
X-Git-Tag: 0.99~2429
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=0f77c30620bf10511cbd49b1a96c6191be491eed

ui.tools.listener.completion: display glyph for CHAR: completions.
---

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 6f7bb8420c..4d0e3d4959 100644
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -4,13 +4,13 @@ USING: accessors arrays assocs calendar colors colors.constants
 combinators combinators.short-circuit definitions.icons
 documents documents.elements fonts fry generic help.vocabs
 kernel math math.vectors models.arrow models.delay parser
-present sequences sets splitting tools.completion ui.commands
-ui.gadgets ui.gadgets.editors ui.gadgets.glass
+present sequences sets splitting strings tools.completion
+ui.commands ui.gadgets ui.gadgets.editors ui.gadgets.glass
 ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables
 ui.gadgets.tracks ui.gadgets.worlds ui.gadgets.wrappers
 ui.gestures ui.images ui.operations ui.pens.solid ui.theme
 ui.theme.images ui.tools.common ui.tools.listener.history
-ui.tools.listener.popups vocabs words ;
+ui.tools.listener.popups unicode.data vocabs words ;
 IN: ui.tools.listener.completion
 
 ! We don't directly depend on the listener tool but we use a few slots
@@ -70,6 +70,9 @@ M: history-completion completion-banner drop "Input history" ;
 ! Completion modes also implement the row renderer protocol
 M: listener-completion row-columns drop present 1array ;
 
+M: char-completion row-columns
+    drop [ name-map at 1string ] [ 2array ] bi ;
+
 M: definition-completion prototype-row
     drop \ + definition-icon <image-name> "" 2array ;