Re: [O] footnotes export verbatim

[Nicolas Goaziou]

Hello,

Samuel Wales <address@hidden> 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