* or send an email to <lpadovan@cs.unibo.it>
*)
-let create ~dictionary ~mml ~tml ~log =
- I_mathml_editor.create dictionary#as_Document mml#as_Document tml#as_Document log
+let default_dictionary_path = I_mathml_editor.get_default_dictionary_path ()
+;;
+
+let default_mathml_stylesheet_path = I_mathml_editor.get_default_mathml_stylesheet_path ()
+;;
+
+let default_tex_stylesheet_path = I_mathml_editor.get_default_tex_stylesheet_path ()
+;;
+
+let create ?(alt_lexer=false) ~dictionary_uri ~mml_uri ~tml_uri ~log =
+ I_mathml_editor.create ~alt_lexer ~dictionary_uri ~mml_uri ~tml_uri ~log
;;
let freeze = I_mathml_editor.freeze