help: fix some html navigation styles.

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 -- )
+    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 ;
+        ] { } make [ ($navigation-table) ] unless-empty
+    ] with-style ;
 
 : $title ( topic -- )
     title-style get [

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 ;