mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 14:46:28 +00:00
Code Releases Activity

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

Browse source
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))) (= (incf inline-image-count) 1)))
(t nil)))))))) (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) (defun org-e-odt-resolve-numbered-paragraph (element info)
(when (eq (org-element-type element) 'item) (when (eq (org-element-type element) 'item)
(let ((el element) ordinal) (let ((el element) ordinal)
(while (eq (org-element-type el) 'item) (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)))) (setq el (org-export-get-parent (org-export-get-parent el))))
ordinal))) ordinal)))
@ -3312,15 +3308,10 @@ contextual information.
Use `org-e-odt--table' to typeset the table. Handle details Use `org-e-odt--table' to typeset the table. Handle details
pertaining to indentation here." pertaining to indentation here."
(let* ((--get-previous-elements (let* ((--element-preceded-by-table-p
(function
(lambda (blob info)
(let ((parent (org-export-get-parent blob)))
(cdr (memq blob (reverse (org-element-contents parent))))))))
(--element-preceded-by-table-p
(function (function
(lambda (element info) (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))))) thereis (eq (org-element-type el) 'table)))))
(--walk-list-genealogy-and-collect-tags (--walk-list-genealogy-and-collect-tags
(function (function