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

diff --git a/basis/colors/constants/factor-colors.txt b/basis/colors/constants/factor-colors.txt
index 9d7649ab3d6c2d1465718460270e6faa1a77862f..c032aae5c4f45a1469c5c145da7a14f57c30e5f2 100644 (file)
--- 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 2813485da3c5d52320fd86a2555f979e7533856d..3c5059b5c0563b9382d133eae5aa5dfba3ed4088 100644 (file)
--- 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