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