Re: how to renumber footnotes?

[Andreas Röhler]

Am 17.04.20 um 19:03 schrieb Sharon Kimble:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA512
>
> Andreas Röhler <andreas.roehler@easy-emacs.de> writes:
>
> > On 17.04.20 05:58, Sharon Kimble wrote:
> > > -----BEGIN PGP SIGNED MESSAGE-----
> > > Hash: SHA512
> > >
> > >
> > > Please, can someone help me sort out an org-mode footnote problem?
> > >
> > > I have 2 org-mode documents called 'file-a' and 'file-b', and both have
> > > got several hundred footnotes starting with 1. I'm adding file-b on to
> > > the end of file-a, and trying to renumber the footnotes, so that even if
> > > file-a has 354 footnotes, and file-b has 421 footnotes, the whole file
> > > renumbers the footnotes and continues on from 354 to 355, 356, 357, etc
> > > and onwards.
> > >
> > > But how can I do this please? The org-mode footnote program can't do it,
> > > so how do I do it please?
> > >
> > > (The footnote numbers I've shown are purely arbitrary, some files that
> > > I'm wanting to do this with have up to 700 footnotes in their combined
> > Make sure there is only one footnote-section at the end of file and all fn 
> > appear in correct order:
> >
> > (defun ar-org-footnote-renumber-intern ()
> >    (let ((c 0))
> >      (while (re-search-forward org-footnote-re nil t)
> >        (backward-char 2)
> >        (when (looking-at "[0-9]+")
> >      (replace-match (number-to-string (cl-incf c)))))))
> >
> > (defun ar-org-footnote-renumber ()
> >    "Renumber footnotes."
> >    (interactive "*")
> >    (save-restriction
> >      (widen)
> >      (goto-char (point-min))
> >      (when (re-search-forward "^* Footnotes" nil t)
> >        ;; first renumber fns in text section, afterwards the
> >        ;; fn-definitions
> >        (save-restriction
> >      (narrow-to-region (point-min) (line-beginning-position))
> >      (goto-char (point-min))
> >      (ar-org-footnote-renumber-intern)
> >      (widen)
> >      (when (re-search-forward "^* Footnotes" nil t)
> >        (narrow-to-region (line-beginning-position) (point-max))
> >        (goto-char (point-min))
> >        (ar-org-footnote-renumber-intern))))))
> Thanks Andreas, but all my footnotes are inline. Perhaps I should've
> said that earlier on, sorry!
>
> Perhaps I could put them at the end but I'm too tired at the moment to
> think about it, but plenty of time at the weekend, hooray!
>
> Thanks
>    Sharon.
> - -- 


Another, simplified try:


(defun ar-renumber-footnote-in-region (&optional beg end)
  "Renumber footnotes in active region."
  (interactive "*")
  (let ((beg (cond (beg)
           ((use-region-p)
            (region-beginning))))
        (end (cond (end)
           ((use-region-p)
            (copy-marker (region-end))))))
    (if
    (and beg end)
    (progn
      (save-restriction
        (narrow-to-region beg end)
        (goto-char (point-min))
        (ar-org-footnote-renumber-intern)))
      (error "Need an active region to work on!"))))

BTW seems footnotes are stored in reverse order if not inlined. That 
needs a small modification still.