; 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))
    )
)