Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / python / langdefs.py
diff --git a/python/langdefs.py b/python/langdefs.py

index 80a1c7f244e51b9175aced2480c3eda490b31169..37159c519854bbfad079017f4f45ad16fed0bae2 100644 (file)
--- a/python/langdefs.py
+++ b/python/langdefs.py
@@ -36,17 +36,28 @@ class LanguageDef:
  
  site = LanguageDef ('en', 'English', webext='')
  
-html_page_body = re.compile ('</?body>', re.M | re.I)
+html_body_re = re.compile ('<body.*?>', re.I)
+html_end_body_re = re.compile ('</body>', re.I)
  french_html_typo_rules = ((' :', '&nbsp;:'),
                            (' ;', '&nbsp;;'),
-                          (' ?', '&thinsp;?'),
-                          (' !', '&thinsp;!'))
+                          (' ?', '<font size="-4">&nbsp;</font>?'),
+                          (' !', '<font size="-4">&nbsp;</font>!'))
  
  def french_html_filter (page):
-    parts = html_page_body.split (page)
+    m = html_body_re.search (page)
+    if m:
+        body_begin = m.end ()
+    else:
+        body_begin = 0
+    m = html_end_body_re.search (page)
+    if m:
+        body_end = m.start ()
+    else:
+        body_end = len (page)
+    body = page[body_begin:body_end]
      for r in french_html_typo_rules:
-        parts[1] = parts[1].replace (r[0], r[1])
-    return parts[0] + '<body>' + parts[1] + '</body>' + parts[2]
+        body = body.replace (r[0], r[1])
+    return page[:body_begin] + body + page[body_end:]
  
  fr = LanguageDef ('fr', 'français', double_punct_char_sep='&nbsp;', html_filter = french_html_filter)
  es = LanguageDef ('es', 'español')