; Like grooming the toc, but for this list of figures or tables. Gets rid of ; ^As and page numbers, but doesn't do the other toc stuff, like leveling or ; indentation. ; (defun dot () (point)) (defun groom-html-lof () "Call groom-html-lof-or-lot, q.v., with lof arg." (interactive) (groom-html-lof-or-lot "lof") ) (defun groom-html-lot () "Call groom-html-lof-or-lot, q.v., with lot arg." (interactive) (groom-html-lof-or-lot "lot") ) (defun groom-html-lof-or-lot (which) "Do a little bit of grooming on an auto-gen'd html lof or lot. In particular, get rid of the right justifying ^A chars that will print period-filled leaders up to a page number. Assume we're in file buffer lof.me or lot.me, which is supplied as a batch arg, or navigated to if we run this interactively." (interactive) ; See the comment in groom-html-toc.el about not doing a find-file here. (groom-html-lof-or-lot-1) (write-file (concat which "-html.me")) ) (defun groom-html-lof-or-lot-1 () "Work doer for groom-html-toc, after toc.me file is opened and before toc-html.me file is saved. Separating this function allows it to be run interactively on an already open toc.me buffer. Testing, testing, testing." (interactive) (while (search-forward "" nil t) ; Backing up 5 chars takes care of the "\ \ " that's put in front of ; every char in the (F or (T macro in stdhdr.me, q.v. (backward-char 5) ; Killing the entire region up to eol takes care of everything ; including the line number itself. (setq d (dot)) (end-of-line) (kill-region d (dot)) ) )