prettyprint.backend: Use color objects

db4
Eduardo Cavazos 2008-08-01 14:29:48 -05:00
parent bf2a1d2399
commit 011a63a27e
1 changed files with 2 additions and 2 deletions

View File

@ -5,7 +5,7 @@ hashtables io assocs kernel math namespaces sequences strings
sbufs io.styles vectors words prettyprint.config sbufs io.styles vectors words prettyprint.config
prettyprint.sections quotations io io.files math.parser effects prettyprint.sections quotations io io.files math.parser effects
classes.tuple math.order classes.tuple.private classes classes.tuple math.order classes.tuple.private classes
combinators ; combinators colors ;
IN: prettyprint.backend IN: prettyprint.backend
GENERIC: pprint* ( obj -- ) GENERIC: pprint* ( obj -- )
@ -89,7 +89,7 @@ M: f pprint* drop \ f pprint-word ;
: string-style ( obj -- hash ) : string-style ( obj -- hash )
[ [
presented set presented set
{ 0.3 0.3 0.3 1.0 } foreground set T{ rgba f 0.3 0.3 0.3 1.0 } foreground set
] H{ } make-assoc ; ] H{ } make-assoc ;
: unparse-string ( str prefix suffix -- str ) : unparse-string ( str prefix suffix -- str )