:; exec emacs -batch -l $0 # -*-emacs-lisp-*-
(set-buffer (get-buffer-create "dist-lisp-README.html"))
(erase-buffer)
(insert-file-contents "dist/lisp/README")
(goto-char (point-min))
(re-search-forward "^-+\n")
(delete-region (point-min) (point))
(let ((title "index of dist/lisp/"))
(insert "" title "\n"
"" title "
\n"
"\n"))
(while (not (looking-at "#"))
(insert "- " frag ".el
")
(forward-line 3)))
(delete-region (point) (point-max))
(insert "
\n"
"\n"
"\n")
(let ((backup-inhibited t))
(write-file "dist-lisp-index.html"))
;;; make-dist-lisp-index.el ends here