help.markup: change default-style to use with-nesting.

flac
John Benediktsson 2020-02-14 22:18:38 -08:00 committed by Steve Ayerhart
parent ef23d9ed55
commit 476389ffc4
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
3 changed files with 5 additions and 11 deletions

View File

@ -49,9 +49,7 @@ M: f print-element drop ;
[ 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 ;

View File

@ -22,18 +22,14 @@ IN: help.stylesheet
: 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{
@ -148,7 +144,7 @@ SYMBOL: bullet
[
font-size
{
default-span-style title-style
default-style title-style
help-path-style heading-style
subsection-style snippet-style
code-char-style

View File

@ -16,7 +16,7 @@ IN: ui.theme.switching
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