Commits

Anonymous committed ccf2b12

Add prepare-diff and fix-italian stuff

  • Participants
  • Parent commits c915f3a

Comments (0)

Files changed (1)

File files/latextohtml.el

   (beginning-of-buffer)
   (replace-regexp "\\\\dk{``A}" "“A")
   (beginning-of-buffer)
+  (replace-regexp "\\\\dk{\"<A}" "&ldquo;A")
+  (beginning-of-buffer)
   (replace-regexp "``" "&ldquo;")
   (beginning-of-buffer)
   (replace-regexp "''" "&rdquo;")
     (replace-regexp "”" "\">")
     ))
 
+(defun fix-italian ()
+  (interactive)
+  (fix-reset-after-each
+    (replace-string "E'" "È")
+    (replace-string "un pò" "un po'")
+    (replace-string "perchè" "perché"))
+  )
+
 (defun fix-quot-to-quotes (beg end)
   (interactive "r")
   (goto-char beg)
     (replace-regexp "\\\\emph{ }" " ")
     (replace-regexp "\\\\emph{}" "")
     ))
+
+
+(defun fix-prepare-diff ()
+  (interactive)
+  (fix-reset-after-each
+    (replace-regexp "“" "\"")
+    (replace-regexp "„" "\"")
+    (replace-regexp "”" "\"")
+    (replace-regexp "‘" "'")
+    (replace-regexp "‚" "'")
+    (replace-regexp "’" "'")
+    (replace-regexp "«" "\"")
+    (replace-regexp "»" "\"")
+    (replace-regexp "…" "...")
+    (replace-regexp "—" "--")
+    (replace-string "* * *" "")
+    (replace-string "*** *** ***" "")
+    (replace-regexp "  +" " ")
+    (replace-regexp " +$" "")
+    (replace-string "... " "...")
+    (replace-regexp "^ +$" "")
+    (replace-regexp "
+
+
++" "
+
+")
+    )
+  )