Emacs Code to Nodify The Tech's Shakespeare Texts (idea)

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.