From 51f40e27271b0e8c2b9cc66e644ddd6737fa1e99 Mon Sep 17 00:00:00 2001 From: Keith Lazuka Date: Wed, 9 Sep 2009 16:33:40 -0400 Subject: [PATCH] vocabs.prettyprint: made the auto-use vocab box a little easier to read --- basis/colors/constants/factor-colors.txt | 1 + basis/vocabs/prettyprint/prettyprint.factor | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/basis/colors/constants/factor-colors.txt b/basis/colors/constants/factor-colors.txt index 9d7649ab3d..c032aae5c4 100644 --- a/basis/colors/constants/factor-colors.txt +++ b/basis/colors/constants/factor-colors.txt @@ -1,4 +1,5 @@ ! Factor UI theme colors +243 242 234 FactorLightLightTan 227 226 219 FactorLightTan 172 167 147 FactorDarkTan 81 91 105 FactorLightSlateBlue diff --git a/basis/vocabs/prettyprint/prettyprint.factor b/basis/vocabs/prettyprint/prettyprint.factor index 2813485da3..3c5059b5c0 100644 --- a/basis/vocabs/prettyprint/prettyprint.factor +++ b/basis/vocabs/prettyprint/prettyprint.factor @@ -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 \ No newline at end of file