ui.tools.listener.completion: fix row color for words in our search list.
parent
2da0e52525
commit
61fa05942b
|
@ -70,7 +70,7 @@ M: definition-completion row-columns
|
||||||
M: word-completion row-color
|
M: word-completion row-color
|
||||||
[ vocabulary>> ] [ manifest>> ] bi* {
|
[ vocabulary>> ] [ manifest>> ] bi* {
|
||||||
{ [ dup not ] [ COLOR: black ] }
|
{ [ dup not ] [ COLOR: black ] }
|
||||||
{ [ 2dup search-vocabs>> member-eq? ] [ COLOR: black ] }
|
{ [ 2dup search-vocab-names>> keys member? ] [ COLOR: black ] }
|
||||||
{ [ over ".private" tail? ] [ COLOR: dark-red ] }
|
{ [ over ".private" tail? ] [ COLOR: dark-red ] }
|
||||||
[ COLOR: dark-gray ]
|
[ COLOR: dark-gray ]
|
||||||
} cond 2nip ;
|
} cond 2nip ;
|
||||||
|
|
Loading…
Reference in New Issue