* (bug 1663) support color in TeX formulas

diff --git a/RELEASE-NOTES b/RELEASE-NOTES
index b010898..c23f16c 100644 (file)
--- a/RELEASE-NOTES
+++ b/RELEASE-NOTES
@@ -468,6 +468,7 @@ fully support the editing toolbar, but was found to be too confusing.
 * (bug 4571) Partial fix hack for {{fulllurl:}} in action=render
 * (bug 3502) Bowtie symbol for TeX
 * (bug 4000) Support for \textstyle et al. in <math>
+* (bug 1663) support color in TeX formulas
 
 
 === Caveats ===

diff --git a/math/texutil.ml b/math/texutil.ml
index 8309657..185ce5d 100644 (file)
--- a/math/texutil.ml
+++ b/math/texutil.ml
@@ -36,10 +36,12 @@ type encoding_t = LATIN1 | LATIN2 | UTF8
 let modules_ams = ref false
 let modules_nonascii = ref false
 let modules_encoding = ref UTF8
+let modules_color = ref false
 
 let tex_use_ams ()     = modules_ams := true
 let tex_use_nonascii () = modules_nonascii := true
-let tex_mod_reset ()   = (modules_ams := false; modules_nonascii := false; modules_encoding := UTF8)
+let tex_use_color ()  = modules_color := true
+let tex_mod_reset ()   = (modules_ams := false; modules_nonascii := false; modules_encoding := UTF8; modules_color := false)
 
 let get_encoding = function
     UTF8 -> "\\usepackage{ucs}\n\\usepackage[utf8]{inputenc}\n"
@@ -49,7 +51,8 @@ let get_encoding = function
 let get_preface ()  = "\\nonstopmode\n\\documentclass[12pt]{article}\n" ^
               (if !modules_nonascii then get_encoding !modules_encoding else "") ^
               (if !modules_ams then "\\usepackage{amsmath}\n\\usepackage{amsfonts}\n\\usepackage{amssymb}\n" else "") ^
-              "\\pagestyle{empty}\n\\begin{document}\n$$\n"
+                         (if !modules_color then "\\usepackage[dvips]{color}\n" else "") ^              
+                         "\\pagestyle{empty}\n\\begin{document}\n$$\n"
 let get_footer  ()  = "\n$$\n\\end{document}\n"
 
 let set_encoding = function
@@ -474,4 +477,5 @@ let find = function
     | "\\mbox"             -> raise (Failure "malformatted \\mbox")
     | "\\vbox"             -> raise (Failure "malformatted \\vbox")
     | "\\hbox"             -> raise (Failure "malformatted \\hbox")
+       | "\\color"            -> (tex_use_color (); LITERAL (TEX_ONLY "\\color"))
     | s                    -> raise (Illegal_tex_function s)