ported to helm registry

[helm.git] / helm / ocaml / cic_transformations / applyStylesheets.ml

diff --git a/helm/ocaml/cic_transformations/applyStylesheets.ml b/helm/ocaml/cic_transformations/applyStylesheets.ml
index 860a73297e59afc332ce3f983e082e90c3540ba9..fc0a2989ca766f9927006668092fc6645c597f2b 100644 (file)
--- a/helm/ocaml/cic_transformations/applyStylesheets.ml
+++ b/helm/ocaml/cic_transformations/applyStylesheets.ml
@@ -71,14 +71,11 @@ let reload_stylesheets () =
 ;;
 
 
-let getterURL = Configuration.getter_url;;
-let processorURL = Configuration.processor_url;;
-
 let mml_styles = [d_c ; c1 ; g ; c2 ; l];;
 let mml_args ~explode_all =
  ("explodeall",(if explode_all then "true()" else "false()"))::
-  ["processorURL", "'" ^ processorURL ^ "'" ;
-   "getterURL", "'" ^ getterURL ^ "'" ;
+  ["processorURL", "'" ^ Helm_registry.get "uwobo.url" ^ "'" ;
+   "getterURL", "'" ^ Helm_registry.get "getter.url" ^ "'" ;
    "draw_graphURL", "'http%3A//phd.cs.unibo.it%3A8083/'" ;
    "uri_set_queueURL", "'http%3A//phd.cs.unibo.it%3A8084/'" ;
    "UNICODEvsSYMBOL", "'symbol'" ;
@@ -95,9 +92,9 @@ let mml_args ~explode_all =
 ;;
 
 let sequent_styles = [d_c ; c1 ; g ; c2 ; l];;
-let sequent_args =
- ["processorURL", "'" ^ processorURL ^ "'" ;
-  "getterURL", "'" ^ getterURL ^ "'" ;
+let sequent_args () =
+ ["processorURL", "'" ^ Helm_registry.get "uwobo.url" ^ "'" ;
+  "getterURL", "'" ^ Helm_registry.get "getter.url" ^ "'" ;
   "draw_graphURL", "'http%3A//phd.cs.unibo.it%3A8083/'" ;
   "uri_set_queueURL", "'http%3A//phd.cs.unibo.it%3A8084/'" ;
   "UNICODEvsSYMBOL", "'symbol'" ;
@@ -126,7 +123,7 @@ let apply_proof_stylesheets proof_doc ~explode_all =
 ;;
 
 let apply_sequent_stylesheets sequent_doc =
- apply_stylesheets sequent_doc sequent_styles sequent_args
+ apply_stylesheets sequent_doc sequent_styles (sequent_args ())
 ;;
 
 (** Utility functions to map objects to MathML Presentation **)