diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-08 17:08:11 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-08 17:08:11 +0000 |
| commit | e1d32b26956ca7bb5e568fd7e0b615d59df44e49 (patch) | |
| tree | 0afebf60aa32611e67b089748c94300399f57aa1 /contrib/xml | |
| parent | 4b391cb815064a6ad5f5413c0e4054c6e4f4bd8a (diff) | |
* <style>...</style> tag no longer generated for theory files
(the HELM/MoWGLI stylesheets do not longer require it)
* helm:helm_link added to each <a/> element whose href is an URI
* the required <body/> element was not generated for theories
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5877 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml')
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index 7b7ebd1dc..586a20875 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -644,14 +644,14 @@ let _ = "%xhtml-special.ent;\n" ^ "%xhtml-symbol.ent;\n" ^ "]>\n\n"); - theory_output_string "<html xmlns=\"http://www.w3.org/1999/xhtml\" xmlns:ht=\"http://www.cs.unibo.it/helm/namespaces/helm-theory\">\n"; - theory_output_string "<head>\n<style> A { text-decoration: none } </style>\n</head>\n") + theory_output_string "<html xmlns=\"http://www.w3.org/1999/xhtml\" xmlns:ht=\"http://www.cs.unibo.it/helm/namespaces/helm-theory\" xmlns:helm=\"http://www.cs.unibo.it/helm\">\n"; + theory_output_string "<head></head>\n<body>\n") ;; let _ = Vernac.set_xml_end_library (function () -> - theory_output_string "</html>\n"; + theory_output_string "</body>\n</html>\n"; let ofn = theory_filename xml_library_root in begin match ofn with @@ -701,6 +701,6 @@ let _ = let _ = Library.set_xml_require (fun d -> theory_output_string - (Printf.sprintf "<b>Require</b> <a href=\"theory:%s.theory\">%s</a>.<br/>" + (Printf.sprintf "<b>Require</b> <a helm:helm_link=\"href\" href=\"theory:%s.theory\">%s</a>.<br/>" (uri_of_dirpath d) (Names.string_of_dirpath d))) ;; |