tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-e-odt: Internalize filter 

* contrib/lisp/org-e-odt.el (org-e-odt--translate-description-lists):
  This is a developer filter, which should be handled by
  `org-export-define-backend'.  Also, such filters do not require
  a back-end check.

`org-export-*-functions' are user-oriented variables.
This commit is contained in:
Nicolas Goaziou 2012-09-04 11:15:51 +02:00
parent e49668ab5d
commit 153ff40a2a
1 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,6 +83,7 @@
(verbatim . org-e-odt-verbatim)
(verse-block . org-e-odt-verse-block))
:export-block "ODT"
:filters-alist ((:filter-parse-tree . org-e-odt--translate-description-lists))
:options-alist
((:odt-styles-file "ODT_STYLES_FILE" nil nil t)
(:LaTeX-fragments nil "LaTeX" org-export-with-LaTeX-fragments)))
@ -3491,9 +3492,6 @@ contextual information."
;; This translator is necessary to handle indented tables in a uniform
;; manner. See comment in `org-e-odt--table'.
(add-to-list 'org-export-filter-parse-tree-functions
'org-e-odt--translate-description-lists)
(defun org-e-odt--translate-description-lists (tree backend info)
;; OpenDocument has no notion of a description list. So simulate it
;; using plain lists. Description lists in the exported document
@ -3525,30 +3523,29 @@ contextual information."
;; 2. The paragraph containing the definition term is styled to be
;; in bold.
;;
(when (eq backend 'e-odt)
(org-element-map
tree 'plain-list
(lambda (el)
(when (equal (org-element-property :type el) 'descriptive)
(org-element-set-element
el
(apply 'org-element-adopt-elements
(list 'plain-list (list :type 'descriptive-1))
(mapcar
(lambda (item)
(org-element-adopt-elements
(list 'item (list :checkbox (org-element-property
:checkbox item)))
(list 'paragraph (list :style "Text_20_body_20_bold")
(or (org-element-property :tag item) "(no term)"))
(org-element-adopt-elements
(list 'plain-list (list :type 'descriptive-2))
(apply 'org-element-adopt-elements
(list 'item nil)
(org-element-contents item)))))
(org-element-contents el)))))
nil)
info))
(org-element-map
tree 'plain-list
(lambda (el)
(when (equal (org-element-property :type el) 'descriptive)
(org-element-set-element
el
(apply 'org-element-adopt-elements
(list 'plain-list (list :type 'descriptive-1))
(mapcar
(lambda (item)
(org-element-adopt-elements
(list 'item (list :checkbox (org-element-property
:checkbox item)))
(list 'paragraph (list :style "Text_20_body_20_bold")
(or (org-element-property :tag item) "(no term)"))
(org-element-adopt-elements
(list 'plain-list (list :type 'descriptive-2))
(apply 'org-element-adopt-elements
(list 'item nil)
(org-element-contents item)))))
(org-element-contents el)))))
nil)
info)
tree)
;;;; List tables