;; (defun fix-html-doem () (interactive) (goto-char (point-min)) (query-replace-regexp "\\\\begin\\{items\\}" "" nil) (goto-char (point-min)) (query-replace-regexp "\\\\begin\\{itemize\\}" "" nil) (goto-char (point-min)) (query-replace-regexp "\\\\item" "
  • " nil) (goto-char (point-min)) (query-replace-regexp "\\\\filename\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\variable\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\userid\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\prog\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\host\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\maillist\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\subroutine\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\\\command\\{\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\{\\\\it\\([^}]*\\)\\}\\\\" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\{\\\\it\\([^}]*\\)\\}" "\\1" nil) (goto-char (point-min)) (query-replace-regexp "\\{\\\\tt\\([^}]*\\)\\}\\\\" "\\1" nil) (goto-char (point-min)) ;(query-replace-regexp "\\\\section{\\(.*\\)}" "

    \\1

    " nil) (goto-char (point-min)) ;(query-replace-regexp "\\\\subsection{\\(.*\\)}" "
    \\1
    " nil) (goto-char (point-min)) (query-replace-regexp "\\\\subsection{\\(.*\\)}" "

    \\1

    " nil) (goto-char (point-min)) (query-replace-regexp "\\\\subsubsection{\\(.*\\)}" "
    \\1
    " nil) (goto-char (point-min)) (query-replace-regexp "\\\\label{\\(.*\\)}" "" nil) ) (query-replace " " "

    " nil) (query-replace-regexp "

    \\(.*\\)
    " "
    \\1
    " nil) (query-replace-regexp "\\\\cite{\\([^}]*\\)}" "[\\1]" nil) (query-replace-regexp "\\\\ref{\\([^}]*\\)}" "[\\1]" nil)