vocabs.prettyprint: made the auto-use vocab box a little easier to read
parent
a96e828d7c
commit
51f40e2727
|
@ -1,4 +1,5 @@
|
||||||
! Factor UI theme colors
|
! Factor UI theme colors
|
||||||
|
243 242 234 FactorLightLightTan
|
||||||
227 226 219 FactorLightTan
|
227 226 219 FactorLightTan
|
||||||
172 167 147 FactorDarkTan
|
172 167 147 FactorDarkTan
|
||||||
81 91 105 FactorLightSlateBlue
|
81 91 105 FactorLightSlateBlue
|
||||||
|
|
|
@ -4,6 +4,7 @@ USING: accessors arrays assocs colors colors.constants fry io
|
||||||
io.styles kernel make math.order namespaces parser
|
io.styles kernel make math.order namespaces parser
|
||||||
prettyprint.backend prettyprint.sections prettyprint.stylesheet
|
prettyprint.backend prettyprint.sections prettyprint.stylesheet
|
||||||
sequences sets sorting vocabs vocabs.parser ;
|
sequences sets sorting vocabs vocabs.parser ;
|
||||||
|
FROM: io.styles => inset ;
|
||||||
IN: vocabs.prettyprint
|
IN: vocabs.prettyprint
|
||||||
|
|
||||||
: pprint-vocab ( vocab -- )
|
: pprint-vocab ( vocab -- )
|
||||||
|
@ -86,7 +87,9 @@ PRIVATE>
|
||||||
"To avoid doing this in the future, add the following forms" print
|
"To avoid doing this in the future, add the following forms" print
|
||||||
"at the top of the source file:" print nl
|
"at the top of the source file:" print nl
|
||||||
] with-style
|
] with-style
|
||||||
{ { page-color COLOR: FactorLightTan } }
|
{ { page-color COLOR: FactorLightLightTan }
|
||||||
|
{ border-color COLOR: FactorDarkTan }
|
||||||
|
{ inset { 5 5 } } }
|
||||||
[ manifest get pprint-manifest ] with-nesting
|
[ manifest get pprint-manifest ] with-nesting
|
||||||
nl nl
|
nl nl
|
||||||
] print-use-hook set-global
|
] print-use-hook set-global
|
Loading…
Reference in New Issue