IN: prettyprint.stylesheet

GENERIC: word-style ( word -- style )

USING: assocs colors generic hashtables io.styles kernel
prettyprint.stylesheet prettyprint.stylesheet.private ;

M: highlighted-word word-style
M\ highlighted-word word-style (call-next-method) T{ rgba
{ red 0.1843137254901961 }
{ green 0.3098039215686275 }
{ blue 0.3098039215686275 }
{ alpha 1.0 }
} foreground associate swap assoc-union ;

USING: assocs hashtables io.styles kernel
prettyprint.stylesheet words ;

M: word word-style
[ presented associate ]
[ "word-style" word-prop >hashtable ] bi assoc-union ;