;;; gnu-ify.el --- munge guile-faq.html to fit www.gnu.org style guidelines ;;; Author: Thien-Thi Nguyen ;;; Created: 2000/08/07 (defun gnu-ify-guile-faq () (find-file "guile-faq.html") (goto-char (point-min)) (search-forward "") (replace-match (concat (gnu-style 'title-trailer) "")) (search-forward "" (point-max)) (replace-match (gnu-style 'body-start-tag)) (let ((p (point))) (search-forward "

\n") (delete-region p (point))) (search-forward "") (beginning-of-line) (insert (gnu-style 'page-end-boilerplate)) (goto-char (point-min)) (while (re-search-forward "^Node:" (point-max) t) (delete-char -5) (search-forward ">") (let ((beg (point))) (re-search-forward "^Up:") (delete-region beg (point))) (search-forward ">Top<") (forward-char -4) (insert "(") (forward-char 3) (insert ")") (end-of-line) (kill-line 2)) (goto-char (point-min)) (while (re-search-forward "^

.*:" (point-max) t) (delete-char -1)) (mapcar 'rcs-kv '("Date" "Author")) (let (make-backup-files) (save-buffer))) (defun rcs-kv (tag) (goto-char (point-min)) (while (re-search-forward (concat (regexp-quote (concat "$" tag ": ")) "\$[^$]+\$" (regexp-quote " $")) (point-max) t) (replace-match "\\1"))) (defun gnu-style (elem) (get 'gnu-style elem)) (put 'gnu-style 'title-trailer " - GNU Project - Free Software Foundation (FSF)") (put 'gnu-style 'body-start-tag "") (put 'gnu-style 'page-end-boilerplate "

Return to GNU's home page, Guile's home page.

Please send FSF & GNU inquiries & questions to gnu@gnu.org. There are also other ways to contact the FSF.

Please send comments on these web pages to webmasters@www.gnu.org, send other questions to gnu@gnu.org.

Verbatim copying and distribution of this entire web page is permitted in any medium, provided this notice is preserved.

") ;;; gnu-ify.el ends here