steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

listener: choose dark foreground on light background.

db4
John Benediktsson 2013-04-25 16:18:11 -07:00
parent f2aa86ff33
commit 7842b31bd2
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/listener/listener.factor
View File

@ -1,11 +1,10 @@
! Copyright (C) 2003, 2009 Slava Pestov. ! Copyright (C) 2003, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays hashtables io kernel math math.parser memory USING: accessors colors colors.constants compiler.units
namespaces parser lexer sequences strings io.styles continuations debugger fry io io.styles kernel lexer locals
vectors words generic system combinators continuations debugger math math.parser namespaces parser parser.notes prettyprint
definitions compiler.units accessors colors prettyprint fry sequences sets source-files.errors vocabs vocabs.loader
sets vocabs.parser source-files.errors locals vocabs vocabs.loader vocabs.parser ;
parser.notes ;
IN: listener IN: listener
GENERIC: stream-read-quot ( stream -- quot/f ) GENERIC: stream-read-quot ( stream -- quot/f )
@ -16,8 +15,10 @@ GENERIC# prompt. 1 ( stream prompt -- )
auto-use? get [ " auto-use" append ] when ; auto-use? get [ " auto-use" append ] when ;
M: object prompt. M: object prompt.
nip H{ { background T{ rgba f 1 0.7 0.7 1 } } } format bl nip H{
flush ; { background T{ rgba f 1 0.7 0.7 1 } }
{ foreground COLOR: black }
} format bl flush ;
: parse-lines-interactive ( lines -- quot/f ) : parse-lines-interactive ( lines -- quot/f )
[ parse-lines ] with-compilation-unit ; [ parse-lines ] with-compilation-unit ;