Replaced hard-coded colors with constants

[factor.git] / basis / help / stylesheet / stylesheet.factor

diff --git a/basis/help/stylesheet/stylesheet.factor b/basis/help/stylesheet/stylesheet.factor
index e125b361f923a37a6a132bd0b03bf3a1a660b330..0b64ae07f2d20fbdb3c93bd2749464cfa000d6d9 100644 (file)
--- a/basis/help/stylesheet/stylesheet.factor
+++ b/basis/help/stylesheet/stylesheet.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs colors.constants fonts fry io.styles kernel literals
-math namespaces sequences ;
+math namespaces sequences ui.gadgets.theme ;
 IN: help.stylesheet
 
 : wrap-margin-full ( -- n )
@@ -36,7 +36,7 @@ H{
 
 SYMBOL: link-style
 H{
-    { foreground COLOR: DodgerBlue4 }
+    { foreground $ link-color }
     { font-style bold }
 } link-style set-global
 
@@ -52,7 +52,7 @@ H{
     { font-size $ font-size-title }
     { font-style bold }
     { wrap-margin $ wrap-margin-full }
-    { foreground COLOR: gray20 }
+    { foreground $ title-color }
     { page-color COLOR: FactorLightTan }
     { inset { 5 5 } }
 } title-style set-global
@@ -61,7 +61,6 @@ SYMBOL: help-path-style
 H{
     { font-size $ default-font-size }
     { table-gap { 5 5 } }
-    { table-border COLOR: FactorLightTan }
 } help-path-style set-global
 
 SYMBOL: heading-style
@@ -69,7 +68,7 @@ H{
     { font-name $ default-sans-serif-font-name }
     { font-size $ font-size-heading }
     { font-style bold }
-    { foreground COLOR: FactorDarkSlateBlue }
+    { foreground $ heading-color }
 } heading-style set-global
 
 SYMBOL: subsection-style
@@ -83,7 +82,7 @@ SYMBOL: snippet-style
 H{
     { font-name $ default-monospace-font-name }
     { font-size $ default-font-size }
-    { foreground COLOR: DarkOrange4 }
+    { foreground $ snippet-color }
 } snippet-style set-global
 
 SYMBOL: code-char-style
@@ -94,7 +93,7 @@ H{
 
 SYMBOL: code-style
 H{
-    { page-color COLOR: FactorLightTan }
+    { page-color $ code-background-color }
     { inset { 5 5 } }
     { wrap-margin f }
 } code-style set-global
@@ -102,27 +101,25 @@ H{
 SYMBOL: output-style
 H{
     { font-style bold }
-    { foreground COLOR: DarkOrange4 }
+    { foreground $ output-color }
 } output-style set-global
 
 SYMBOL: url-style
 H{
     { font-name $ default-monospace-font-name }
-    { foreground COLOR: DodgerBlue4 }
+    { foreground $ url-color }
 } url-style set-global
 
 SYMBOL: warning-style
 H{
-    { page-color COLOR: gray90 }
-    { border-color COLOR: red }
+    { page-color $ warning-background-color }
     { inset { 5 5 } }
     { wrap-margin $ wrap-margin-full }
 } warning-style set-global
 
 SYMBOL: deprecated-style
 H{
-    { page-color COLOR: gray90 }
-    { border-color COLOR: red }
+    { page-color $ warning-background-color }
     { inset { 5 5 } }
     { wrap-margin $ wrap-margin-full }
 } deprecated-style set-global
@@ -135,7 +132,7 @@ H{
 SYMBOL: table-style
 H{
     { table-gap { 5 5 } }
-    { table-border COLOR: FactorTan }
+    { table-border $ line-color }
 } table-style set-global
 
 SYMBOL: list-style