Hello,
Samuel Wales <[email protected]> writes:
> That doesn't seem to work for me. After a great deal of
> effort I came up with this:
>
> (add-hook 'org-export-before-parsing-hook
> 'alpha-org-export-fix-inline-footnotes)
> (defun alpha-org-export-fix-inline-footnotes (_back-end)
> "Try to get paragraphs to work in inline footnotes
> again."
> ;; this is both slow and buggy
> ;;
> ;; replace every set of blank lines in the buffer with
> ;; \par. what i really want is to do so only in
> ;; footnotes and to not squeeze multiple blank lines.
> ;;
> ;; this merely does on whole buffer:
> ;; (while (re-search-forward from nil t)
> ;; (replace-match to t))
> (alpha-replace-re-in-buffer "\\(\n[[:blank:]]*\\)*\n" "\n\\\\par\n")
> (org-footnote-normalize)
> (alpha-replace-re-in-buffer "\\\\par" "\n"))
Try the following:
#+begin_src emacs-lisp
(defun my-par-in-inline-fn (backend)
(unless (org-export-derived-backend-p backend 'latex)
(let ((org-footnote-section "My section"))
(org-footnote-normalize)
(while (re-search-forward "\\par\\s-*" nil t)
(replace-match "\n\n")))))
(add-hook 'org-export-before-parsing-hook 'my-par-in-inline-fn)
#+end_src
Regards,
--
Nicolas Goaziou
