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 ! 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

View File

@ -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