X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fcontent_pres%2FrenderingAttrs.ml;h=256238d3d460d617ec6f98c5804bc8a4b6517ae3;hb=ed308fc03be5397081ac0e00bbc73b3f71da1e67;hp=478ceff950e53d672996e91123c29eacdac7a864;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/content_pres/renderingAttrs.ml b/helm/ocaml/content_pres/renderingAttrs.ml
index 478ceff95..256238d3d 100644
--- a/helm/ocaml/content_pres/renderingAttrs.ml
+++ b/helm/ocaml/content_pres/renderingAttrs.ml
@@ -23,20 +23,26 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 type xml_attribute = string option * string * string
 type markup = [ `MathML | `BoxML ]
 
+let color1 = "blue"
+(* let color2 = "red" *)
+let color2 = "blue"
+
 let keyword_attributes = function
-  | `MathML -> [ None, "mathcolor", "blue" ]
-  | `BoxML -> [ None, "color", "blue" ]
+  | `MathML -> [ None, "mathcolor", color1 ]
+  | `BoxML -> [ None, "color", color1 ]
 
 let builtin_symbol_attributes = function
-  | `MathML -> [ None, "mathcolor", "blue" ]
-  | `BoxML -> [ None, "color", "blue" ]
+  | `MathML -> [ None, "mathcolor", color1 ]
+  | `BoxML -> [ None, "color", color1 ]
 
 let object_keyword_attributes = function
-  | `MathML -> [ None, "mathcolor", "red" ]
-  | `BoxML -> [ None, "color", "red" ]
+  | `MathML -> [ None, "mathcolor", color2 ]
+  | `BoxML -> [ None, "color", color2 ]
 
 let symbol_attributes _ = []
 let ident_attributes _ = []