diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor index b8d58c4328..821710a02a 100644 --- a/basis/help/markup/markup.factor +++ b/basis/help/markup/markup.factor @@ -99,10 +99,8 @@ ALIAS: $slot $snippet : ($code) ( presentation quot -- ) [ - code-char-style get [ - last-element off - [ ($code-style) ] dip with-nesting - ] with-style + last-element off + [ ($code-style) ] dip with-nesting ] ($block) ; inline : $code ( element -- ) @@ -411,11 +409,7 @@ M: f ($instance) ($link) ; "Notes" $heading print-element ; : ($see) ( word quot -- ) - [ - code-char-style get [ - code-style get swap with-nesting - ] with-style - ] ($block) ; inline + [ code-style get swap with-nesting ] ($block) ; inline : $see ( element -- ) check-first [ see* ] ($see) ; diff --git a/basis/help/stylesheet/stylesheet.factor b/basis/help/stylesheet/stylesheet.factor index ad5f38e58c..5d787030d0 100644 --- a/basis/help/stylesheet/stylesheet.factor +++ b/basis/help/stylesheet/stylesheet.factor @@ -82,14 +82,10 @@ H{ { foreground $ snippet-color } } snippet-style set-global -SYMBOL: code-char-style +SYMBOL: code-style H{ { font-name $ default-monospace-font-name } { font-size $ default-font-size } -} code-char-style set-global - -SYMBOL: code-style -H{ { page-color $ code-background-color } { inset { 5 5 } } { wrap-margin f } @@ -147,6 +143,6 @@ SYMBOL: bullet default-style title-style help-path-style heading-style subsection-style snippet-style - code-char-style + code-style } ] dip '[ get-global [ _ + ] change-at ] with each ;