mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-e-odt.el: Use new version of org-export-get-previous/next-element

This commit is contained in:
Jambunathan K 2012-12-09 14:05:07 +05:30 committed by Bastien Guerry
parent 5cf798dc24
commit ac19d91ab8
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
contrib/lisp/org-e-odt.el
View File

@ -2517,15 +2517,11 @@ Return nil, otherwise."
(= (incf inline-image-count) 1)))
(t nil))))))))
(defun org-e-odt-get-previous-elements (blob info)
(let ((parent (org-export-get-parent blob)))
(cdr (memq blob (reverse (org-element-contents parent))))))
(defun org-e-odt-resolve-numbered-paragraph (element info)
(when (eq (org-element-type element) 'item)
(let ((el element) ordinal)
(while (eq (org-element-type el) 'item)
(push (1+ (length (org-e-odt-get-previous-elements el info))) ordinal)
(push (1+ (length (org-export-get-previous-element el info t))) ordinal)
(setq el (org-export-get-parent (org-export-get-parent el))))
ordinal)))
@ -3312,15 +3308,10 @@ contextual information.
Use `org-e-odt--table' to typeset the table. Handle details
pertaining to indentation here."
(let* ((--get-previous-elements
(function
(lambda (blob info)
(let ((parent (org-export-get-parent blob)))
(cdr (memq blob (reverse (org-element-contents parent))))))))
(--element-preceded-by-table-p
(let* ((--element-preceded-by-table-p
(function
(lambda (element info)
(loop for el in (funcall --get-previous-elements element info)
(loop for el in (org-export-get-previous-element element info t)
thereis (eq (org-element-type el) 'table)))))
(--walk-list-genealogy-and-collect-tags
(function