Try dropping this into your .emacs file...

(defun nodify ()
  "Autonodify for Everything2."
  (interactive)
  (goto-char 0)
  (replace-regexp "<A HREF=\"/Shakespeare[^>]+gloss[^>]+>\\([^<]*\\)</A>" "[\\1]" nil)
  (goto-char 0)
  (replace-string "</STRONG>" "]" nil)
  (goto-char 0)
  (replace-string "<STRONG>" "[" nil)
  (goto-char 0)
  (replace-string "</BLOCKQUOTE>" "" nil)
  (goto-char 0)
  (replace-string "<BLOCKQUOTE>" "" nil)
  (goto-char 0)
  (replace-regexp "<A NAME=\\([0-9]+\\)>\\([^<]+\\)</A>" "<small>\\1</small> \\2" nil)
  (goto-char 0)
  (replace-regexp "<P>\\[[A-Za-z ]+\\]$" "\\&<br>" nil)
  (goto-char 0)
  (replace-string "<BR>\n<BR>" "<BR>" nil)
  )

And then load in the HTML, and do M-x nodify, and it'll bash all sorts of things into some sort of shape.
There's a bit more that could be automagically done here, such as sorting out the stage directions. This is what i'm currently using on Pericles Prince of Tyre.

Log in or register to write something here or to contact authors.