steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help: unify code-char-style and code-style.

master
John Benediktsson 2020-02-15 08:40:21 -08:00
parent 647a477d68
commit be746c1f6d
2 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/help/markup/markup.factor
View File

@ -99,10 +99,8 @@ ALIAS: $slot $snippet
: ($code) ( presentation quot -- ) : ($code) ( presentation quot -- )
[ [
code-char-style get [ last-element off
last-element off [ ($code-style) ] dip with-nesting
[ ($code-style) ] dip with-nesting
] with-style
] ($block) ; inline ] ($block) ; inline
: $code ( element -- ) : $code ( element -- )
@ -411,11 +409,7 @@ M: f ($instance) ($link) ;
"Notes" $heading print-element ; "Notes" $heading print-element ;
: ($see) ( word quot -- ) : ($see) ( word quot -- )
[ [ code-style get swap with-nesting ] ($block) ; inline
code-char-style get [
code-style get swap with-nesting
] with-style
] ($block) ; inline
: $see ( element -- ) check-first [ see* ] ($see) ; : $see ( element -- ) check-first [ see* ] ($see) ;

8
basis/help/stylesheet/stylesheet.factor
View File

@ -82,14 +82,10 @@ H{
{ foreground $ snippet-color } { foreground $ snippet-color }
} snippet-style set-global } snippet-style set-global
SYMBOL: code-char-style SYMBOL: code-style
H{ H{
{ font-name $ default-monospace-font-name } { font-name $ default-monospace-font-name }
{ font-size $ default-font-size } { font-size $ default-font-size }
} code-char-style set-global
SYMBOL: code-style
H{
{ page-color $ code-background-color } { page-color $ code-background-color }
{ inset { 5 5 } } { inset { 5 5 } }
{ wrap-margin f } { wrap-margin f }
@ -147,6 +143,6 @@ SYMBOL: bullet
default-style title-style default-style title-style
help-path-style heading-style help-path-style heading-style
subsection-style snippet-style subsection-style snippet-style
code-char-style code-style
} }
] dip '[ get-global [ _ + ] change-at ] with each ; ] dip '[ get-global [ _ + ] change-at ] with each ;