USING: assocs fonts help.stylesheet help.tips io.styles kernel
-listener memoize namespaces prettyprint.stylesheet sequences
-ui.gadgets.panes.private ui.theme ui.theme.switching
-ui.tools.listener vectors vocabs.prettyprint words ;
+listener memoize namespaces prettyprint.private
+prettyprint.stylesheet sequences ui.gadgets.panes.private
+ui.theme ui.theme.switching ui.tools.listener vectors
+vocabs.prettyprint words ;
IN: ui.theme.switching.tools
: update-tools-style ( -- )
base-vocab-style dim-color foreground update-style
base-effect-style stack-effect-color foreground update-style
+ ! prettyprint.private
+ \ => "word-style" word-prop
+ [ content-background foreground rot set-at ]
+ [ text-color background rot set-at ] bi
+
! vocabs.prettyprint
manifest-style code-background-color page-color update-style
manifest-style code-border-color border-color update-style