prettyprint.backend: Use color objects
parent
bf2a1d2399
commit
011a63a27e
|
@ -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 )
|
||||||
|
|
Loading…
Reference in New Issue