diff --git a/basis/help/help.factor b/basis/help/help.factor index a61528347e..21398906e1 100644 --- a/basis/help/help.factor +++ b/basis/help/help.factor @@ -110,11 +110,13 @@ M: word set-article-parent swap "help-parent" set-word-prop ; [ prefix 1array ] dip prefix , ; : ($navigation-links) ( topic -- ) - [ - [ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ] - [ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ] - bi - ] { } make [ ($navigation-table) ] unless-empty ; + help-path-style get [ + [ + [ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ] + [ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ] + bi + ] { } make [ ($navigation-table) ] unless-empty + ] with-style ; : $title ( topic -- ) title-style get [ diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor index 192be5f06a..d04a241ff3 100644 --- a/basis/help/html/html.factor +++ b/basis/help/html/html.factor @@ -90,7 +90,12 @@ M: pathname url-of [ drop help-stylesheet ] [ [ help-navbar ] - [ [ print-topic ] with-html-writer ] + [ + [ + title-style get + { { page-color COLOR: FactorLightTan } } assoc-union + title-style [ print-topic ] with-variable + ] with-html-writer ] bi* append ] tri simple-page ;