mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-29 20:35:02 +00:00
Code

org-export: New function to locally use another back-end

Browse Source 
* contrib/lisp/org-export.el (org-export-with-backend): New function.
* contrib/lisp/org-e-beamer.el (org-e-beamer-link): Use new function.
This commit is contained in:
Nicolas Goaziou 2012-11-03 17:43:04 +01:00
parent 203d5123bc
commit d8a3b84c93
2 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/lisp/org-e-beamer.el
View File

@ -725,8 +725,7 @@ used as a communication channel."
path
contents))))))))
;; Otherwise, use `e-latex' back-end.
(t (funcall (cdr (assq 'link org-e-latex-translate-alist))
link contents info)))))
(t (org-export-with-backend 'e-latex link contents info)))))
;;;; Plain List

28
contrib/lisp/org-export.el
View File

@ -2545,8 +2545,6 @@ Return the updated communication channel."
;; was within an item, the item should contain the headline. That's
;; why file inclusion should be done before any structure can be
;; associated to the file, that is before parsing.
;;
;; Macro are expanded with `org-export-expand-macro'.
(defun org-export-as
(backend &optional subtreep visible-only body-only ext-plist noexpand)
@ -2986,6 +2984,28 @@ Caption lines are separated by a white space."
(setq caption (nconc (list " ") (copy-sequence cap) caption)))))))
;;;; For Derived Back-ends
;;
;; `org-export-with-backend' is a function allowing to locally use
;; another back-end to transcode some object or element. In a derived
;; back-end, it may be used as a fall-back function once all specific
;; cases have been treated.
(defun org-export-with-backend (back-end data &rest args)
"Call a transcoder from BACK-END on DATA."
(org-export-barf-if-invalid-backend back-end)
(let ((type (org-element-type data)))
(if (or (memq type '(nil org-data)))
(error "No foreign transcoder available")
(let ((transcoder (cdr (assq type
(symbol-value
(intern (format "org-%s-translate-alist"
back-end)))))))
(if (not (functionp transcoder))
(error "No foreign transcoder available")
(apply transcoder data args))))))
;;;; For Export Snippets
;;
;; Every export snippet is transmitted to the back-end. Though, the
@ -3153,6 +3173,10 @@ INFO is the plist used as a communication channel."
;; `org-export-low-level-p', `org-export-first-sibling-p' and
;; `org-export-last-sibling-p' are three useful predicates when it
;; comes to fulfill the `:headline-levels' property.
;;
;; `org-export-get-tags', `org-export-get-category' and
;; `org-export-get-node-property' extract useful information from an
;; headline or a parent headline. They all handle inheritance.
(defun org-export-get-relative-level (headline info)
"Return HEADLINE relative level within current parsed tree.