M: word link-effect? drop t ;
: $effect ( effect -- )
- effect>string stack-effect-style get format ;
+ effect>string base-effect-style get format ;
M: word link-long-text
dup presented associate [
: vocab-style ( vocab -- style )
presented base-vocab-style get clone [ set-at ] keep ;
-SYMBOL: stack-effect-style
+SYMBOL: base-effect-style
H{
{ foreground COLOR: FactorDarkSlateBlue }
{ font-style plain }
-} stack-effect-style set-global
+} base-effect-style set-global
: effect-style ( effect -- style )
- presented stack-effect-style get clone [ set-at ] keep ;
+ presented base-effect-style get clone [ set-at ] keep ;
highlighted-word-style highlighted-word-color foreground update-style
base-string-style string-color foreground update-style
base-vocab-style dim-color foreground update-style
- stack-effect-style stack-effect-color foreground update-style
+ base-effect-style stack-effect-color foreground update-style
! listener
prompt-style prompt-background-color background update-style