[ print-element ] with-style ;
: with-default-style ( quot -- )
- default-span-style get [
- default-block-style get swap with-nesting
- ] with-style ; inline
+ default-style get swap with-nesting ; inline
: print-content ( element -- )
[ print-element ] with-default-style ;
: font-size-span ( -- n )
13/12 default-font-size * >integer ;
-SYMBOL: default-span-style
+SYMBOL: default-style
H{
{ font-name $ default-sans-serif-font-name }
{ font-size $ font-size-span }
{ foreground $ text-color }
{ font-style plain }
-} default-span-style set-global
-
-SYMBOL: default-block-style
-H{
{ wrap-margin $ wrap-margin-full }
-} default-block-style set-global
+} default-style set-global
SYMBOL: link-style
H{
[
font-size
{
- default-span-style title-style
+ default-style title-style
help-path-style heading-style
subsection-style snippet-style
code-char-style
content-background default-font-background-color set-global
! help.stylesheet
- default-span-style text-color foreground update-style
+ default-style text-color foreground update-style
link-style link-color foreground update-style
title-style title-color foreground update-style
help-path-style help-path-border-color table-border update-style