| Line | |
|---|
| 1 | (defun fix-python-texinfo ()
|
|---|
| 2 | (goto-char (point-min))
|
|---|
| 3 | (replace-regexp "\\(@setfilename \\)\\([-a-z]*\\)$"
|
|---|
| 4 | "\\1python-\\2.info")
|
|---|
| 5 | (replace-string "@node Front Matter\n@chapter Abstract\n"
|
|---|
| 6 | "@node Abstract\n@section Abstract\n")
|
|---|
| 7 | (mark-whole-buffer)
|
|---|
| 8 | (texinfo-master-menu 'update-all-nodes)
|
|---|
| 9 | (save-buffer)
|
|---|
| 10 | ) ;; fix-python-texinfo
|
|---|
| 11 |
|
|---|
| 12 | ;; now really do it:
|
|---|
| 13 | (find-file (car command-line-args-left))
|
|---|
| 14 | (fix-python-texinfo)
|
|---|
| 15 | (kill-emacs)
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
