(defun fix-basic ()
  (interactive)
  (beginning-of-buffer)
  (replace-regexp "…" "\\\\dots ")
  (beginning-of-buffer)
  (replace-regexp "\\.\\.\\." "\\\\dots ")
  (beginning-of-buffer)
  (replace-regexp "\\\\dots[ ]+)" "\\\\dots)")
  (beginning-of-buffer)
  (replace-regexp "[[:space:]][[:space:]]+" " ")
  (beginning-of-buffer)
  (replace-regexp "[[:space:]]+--[[:space:]]+" "---")
  (beginning-of-buffer)
  (replace-regexp "[[:space:]]+–[[:space:]]+" "---")
  (beginning-of-buffer)
  (replace-regexp "[[:space:]]+-[[:space:]]+" "---")
  (beginning-of-buffer)
  (replace-regexp "“" "``")
  (beginning-of-buffer)
  (replace-regexp "„" "``")
  (beginning-of-buffer)
  (replace-regexp "”" "''")
  (beginning-of-buffer)
  (replace-regexp "‘" "`")
  (beginning-of-buffer)
  (replace-regexp "‚" "`")
  (beginning-of-buffer)
  (replace-regexp "’" "'")
  (beginning-of-buffer)
  (replace-regexp "\\\\dots[ ]+''" "\\\\dots''")
  (beginning-of-buffer)
  (replace-regexp "\\([^\\]\\)%" "\\1\\\\%")
  (beginning-of-buffer)
  (replace-regexp "^[[:space:]]" "")
  (beginning-of-buffer)
  (replace-regexp "


+" "

")
  (beginning-of-buffer)
  (replace-regexp "``-\\([^-]\\)" "``---\\1")
  (beginning-of-buffer)
  (replace-regexp "``---\\([^}]\\)" "\\\\dk{``---}\\1")
  (beginning-of-buffer) ; fix the hyphen at the end of quotation
  (replace-regexp "\\([^-]\\)-''" "\\1---''")
  (beginning-of-buffer)
  (query-replace-regexp "---''\\([^}]\\)" "\\\\dk{---''}\\1")
  (beginning-of-buffer) ; fix the hyphen before emph end
  (replace-regexp "\\([^-]\\)-}" "\\1---}")
  (beginning-of-buffer)
  (replace-regexp "!!+" "!")
  (beginning-of-buffer)
  (replace-regexp "\\?\\?+" "?")
  (beginning-of-buffer)
  (replace-regexp "\\([^-]\\)-
" "\\1---
")
  (beginning-of-buffer)
  (replace-regexp "``A\\([^}]\\)" "\\\\dk{``A}\\1")
)


(defun fix-quotes () ; and some less trivial quotation stuff
  (interactive)
  (beginning-of-buffer)
  (query-replace-regexp "[[:space:]]'\\([[:word:]]\\)" " `\\1")
  (beginning-of-buffer)
  (query-replace-regexp "``'\\([[:word:]]\\)" "```\\1")
  (beginning-of-buffer)
  (query-replace-regexp "^'" "`")
  (beginning-of-buffer)
  (replace-regexp ":[ ]``" ", ``")
  (beginning-of-buffer)
  (query-replace-regexp "\\([[:word:]]\\)-[ ]" "\\1\\\\dots ")
)

;; (beginning-of-buffer)
;; (replace-regexp "\\*\\*\\* \\*\\*\\* \\*\\*\\*" "\\\\Scene")

(defun fix-html (italic-class)
  (interactive "sClass name: ")
  (beginning-of-buffer)
  (replace-regexp "<p.*?>" "")
  (beginning-of-buffer)
  (replace-regexp "</p>" "

")
  (beginning-of-buffer)
  (replace-regexp
   (concat "<span class=\"" italic-class "\">\\(.*?\\)</span>")
   "\\\\emph{\\1}")
  (beginning-of-buffer)
  (replace-regexp "<span.*?>" "")
  (beginning-of-buffer)
  (replace-regexp "</span>" "")
  (beginning-of-buffer)
  (replace-regexp "&ndash;" "–")
  (beginning-of-buffer)
  (replace-regexp "&bdquo;" "„")
  (beginning-of-buffer)
  (replace-regexp "&ldquo;" "“")
  (beginning-of-buffer)
  (replace-regexp "&#39;" "'")
  (beginning-of-buffer)
  (replace-regexp "&nbsp;" " ")
  (beginning-of-buffer)
  (replace-regexp "&hellip;" "…")
)

(defun fix-html-fimfic ()
  (interactive)
  (beginning-of-buffer)
  (replace-regexp "</i><i>" "")
  (beginning-of-buffer)
  (replace-regexp "<i>\\(.*?\\)</i>" "\\\\emph{\\1}")
  (beginning-of-buffer)
  (replace-regexp "<br />" "
")
  (beginning-of-buffer)
  (replace-regexp "<hr />" "\\\\Scene")
  (beginning-of-buffer)
  (replace-regexp " " " ")
  (beginning-of-buffer)
  (replace-regexp "\\\\emph{ }" " ")
  (beginning-of-buffer)
  (replace-regexp "\\\\emph{}" "")
)