Remove the restrictions on <h1> - <h4>, i.e. these lines:
Code: Select all
h1, h2, h3, h4 {
	font-family: Georgia, Times New Roman, Times, serif;
   	font-size: 110%;
	}
Code: Select all
	(replace "<hr>" text "[hr]")
	(replace "</hr>" text "[/hr]")
Code: Select all
	(replace "[hr]" text "<hr>")
	(replace "[/hr]" text "</hr>")
Code: Select all
(define (format-see-also text)
	(letn (link-list (string "<b>see also: <b> - "))
		(dolist (lnk (parse text)) 
			(push (string "<A HREF=\"#_" lnk "\">" lnk "</A>  ") link-list -1))
	(string link-list))
)
Code: Select all
			(replace ";; *@see-also (.*?)\n" page (format-see-also $1) 0)
--hsm