#!/home/ttn/local/bin/guile -s
!#
(use-modules (ice-9 editing-buffer))
(editing-buffer (find-file "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")
(write-to-port (open-output-file "dist-lisp-index.html")))
;;; make-dist-lisp-index.scm ends here