vocabs.prettyprint: made the auto-use vocab box a little easier to read

db4
Keith Lazuka 2009-09-09 16:33:40 -04:00
parent a96e828d7c
commit 51f40e2727
2 changed files with 5 additions and 1 deletions

View File

@ -1,4 +1,5 @@
! Factor UI theme colors
243 242 234 FactorLightLightTan
227 226 219 FactorLightTan
172 167 147 FactorDarkTan
81 91 105 FactorLightSlateBlue

View File

@ -4,6 +4,7 @@ USING: accessors arrays assocs colors colors.constants fry io
io.styles kernel make math.order namespaces parser
prettyprint.backend prettyprint.sections prettyprint.stylesheet
sequences sets sorting vocabs vocabs.parser ;
FROM: io.styles => inset ;
IN: vocabs.prettyprint
: pprint-vocab ( vocab -- )
@ -86,7 +87,9 @@ PRIVATE>
"To avoid doing this in the future, add the following forms" print
"at the top of the source file:" print nl
] with-style
{ { page-color COLOR: FactorLightTan } }
{ { page-color COLOR: FactorLightLightTan }
{ border-color COLOR: FactorDarkTan }
{ inset { 5 5 } } }
[ manifest get pprint-manifest ] with-nesting
nl nl
] print-use-hook set-global