mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-26 17:30:46 +00:00
Code Releases Activity

ox-odt: Fix footnote export

Browse source 
* lisp/ox-odt.el (org-odt-footnote-reference): Only inline footnotes are
  to be wrapped within a paragraph.

Reported-by: Gerald Wildgruber <Gerald.Wildgruber@unibas.ch> <>
<http://permalink.gmane.org/gmane.emacs.orgmode/100084>
This commit is contained in:
Nicolas Goaziou 2015-08-15 23:42:33 +02:00
parent 23e629545b
commit 8d00cd8966
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ox-odt.el
View file

@ -1765,8 +1765,6 @@ CONTENTS is nil. INFO is a plist holding contextual information."
((not
(org-export-footnote-first-reference-p footnote-reference info nil t))
(funcall --format-footnote-reference n))
;; Inline definitions are secondary strings.
;; Non-inline footnotes definitions are full Org data.
(t
(let* ((raw (org-export-get-footnote-definition
footnote-reference info))
@ -1784,7 +1782,11 @@ CONTENTS is nil. INFO is a plist holding contextual information."
"OrgFootnoteCenter"
"OrgFootnoteQuotations")))))
info))))
(if (eq (org-element-type raw) 'org-data) def
;; Inline definitions are secondary strings. We
;; need to wrap them within a paragraph.
(if (org-element-map raw org-element-all-elements
#'identity info t)
def
(format "\n<text:p text:style-name=\"%s\">%s</text:p>"
"Footnote" def)))))
(funcall --format-footnote-definition n def))))))))