1 ! Copyright (C) 2009 Your name.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: colors.constants hashtables io.styles kernel namespaces
5 IN: prettyprint.stylesheet
7 : word-style ( word -- style )
8 dup "word-style" word-prop >hashtable [
11 [ parsing-word? ] [ delimiter? ] [ symbol? ] tri
12 or or [ COLOR: DarkSlateGray ] [ COLOR: black ] if
18 : string-style ( obj -- style )
21 COLOR: LightSalmon4 foreground set
24 : vocab-style ( vocab -- style )
27 COLOR: cornsilk4 foreground set
30 : effect-style ( effect -- style )
33 COLOR: DarkGreen foreground set