From eb806aa50331ac221a0544c3ebc375ac5af63413 Mon Sep 17 00:00:00 2001 From: "Mark A. Hershberger" Date: Fri, 19 Oct 2018 09:19:38 -0400 Subject: [PATCH] ox-odt: Add support for text:start-value * lisp/ox-odt.el (org-odt-item): Support starting lists at a set number via "text:start-value". Without this, ODF files just restart numbering when they should continue with the specified number. --- etc/ORG-NEWS | 1 + lisp/ox-odt.el | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 75f404fb3..2a6e9fcef 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -48,6 +48,7 @@ system than the main Org document. For example: #+end_example *** New values in clock tables' step: =month= and =year= +*** ODT export handles numbers cookies in lists *** New cell movement functions in tables ~S-~, ~S-~, ~S-~, and ~S-~ now move cells in the corresponding direction by swapping with the adjacent cell. diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 70ef9de2e..66be39f2e 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1966,10 +1966,12 @@ contextual information." CONTENTS holds the contents of the item. INFO is a plist holding contextual information." (let* ((plain-list (org-export-get-parent item)) + (count (org-element-property :counter item)) (type (org-element-property :type plain-list))) (unless (memq type '(ordered unordered descriptive-1 descriptive-2)) (error "Unknown list type: %S" type)) - (format "\n\n%s\n%s" + (format "\n\n%s\n%s" + (if count (format " text:start-value=\"%s\"" count) "") contents (if (org-element-map item 'table #'identity info 'first-match) ""