Improved rendering of conjectures

[helm.git] / helm / ocaml / content_pres / renderingAttrs.ml

diff --git a/helm/ocaml/content_pres/renderingAttrs.ml b/helm/ocaml/content_pres/renderingAttrs.ml
index cc692abe9cda8427ca210302e2a9942e21cd224b..256238d3d460d617ec6f98c5804bc8a4b6517ae3 100644 (file)
--- a/helm/ocaml/content_pres/renderingAttrs.ml
+++ b/helm/ocaml/content_pres/renderingAttrs.ml
@@ -28,17 +28,21 @@
 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 _ = []