;;; -*-Emacs-Lisp-*- ;;; ==================================================================== ;;; @Emacs-Lisp-file{ ;;; author = "Nelson H. F. Beebe", ;;; version = "1.01", ;;; date = "17 April 2000", ;;; time = "18:17:40 MDT", ;;; filename = "html-support.el", ;;; address = "Center for Scientific Computing ;;; University of Utah ;;; Department of Mathematics, 322 INSCC ;;; 155 S 1400 E RM 233 ;;; Salt Lake City, UT 84112-0090 ;;; USA", ;;; telephone = "+1 801 581 5254", ;;; FAX = "+1 801 585 1640, +1 801 581 4148", ;;; URL = "http://www.math.utah.edu/~beebe", ;;; checksum = "56562 139 506 4425", ;;; email = "beebe@math.utah.edu, beebe@acm.org, ;;; beebe@computer.org, beebe@ieee.org ;;; (Internet)", ;;; codetable = "ISO/ASCII", ;;; keywords = "HTML", ;;; supported = "yes", ;;; docstring = "This file contains additional support for ;;; GNU Emacs editing and maintenance of HTML ;;; files. ;;; ;;; The checksum field above contains a CRC-16 ;;; checksum as the first value, followed by the ;;; equivalent of the standard UNIX wc (word ;;; count) utility output of lines, words, and ;;; characters. This is produced by Robert ;;; Solovay's checksum utility.", ;;; } ;;; ==================================================================== (defconst html-support "1.01 [17-Apr-2000]" "Version of html-support library") (provide 'html-support) ;; Revision history: ;; 1.01 [17-Apr-2000] ;; Add html-make-toc. ;; ;; 1.00 [15-Dec-1997] ;; Original version. (defun html-add-paragraph-environment () "Add a paragraph environment." (interactive) (insert "
\n\n
\n") (backward-char 6)) (defun html-make-toc (level) "At the current point, insert an index of HTML sections corresponding to\n\n
\n") (backward-char 5)) (forward-char 2))) (defun html-wrap-em (&optional count) "Wrap the next COUNT words with ...." (interactive "P") (setq count (if count (prefix-numeric-value count) 1)) (forward-word 1) (backward-word 1) (insert "") (forward-word count) (insert ""))