help: fix some html navigation styles.

diff --git a/basis/help/help.factor b/basis/help/help.factor
index a61528347ed0dcd37052a44fa002a5eae7b59c46..21398906e138ae2e5feeedbedf38ff35e7c896af 100644 (file)
--- 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 192be5f06a7b179a00d7034e8c233babbc3f81e7..d04a241ff3ff1b170dcf94095b000de1f3cb67c3 100644 (file)
--- 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 ;