| commit | 74faf5bd26d4aea1124dd087fbd99323559459ff | |
| author | Nicolas Goaziou <n.goaziou@gmail.com> | |
| Sat, 17 Nov 2012 12:33:38 +0000 (17 13:33 +0100) | ||
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | |
| Sat, 17 Nov 2012 12:33:38 +0000 (17 13:33 +0100) | ||
| tree | d36fb934e2f2a8448f46c2931bea8545a7254063 | treesnapshot (tar.gz zip) |
| parent | 60abb38ee3825f4f440ed7cd0c05d40fd70961bf | commitdiff |
org-export: New `org-export-derived-backend-p' predicate
* contrib/lisp/org-export.el (org-export-define-derived-backend): Add
`:parent' property to derived backend.
(org-export-derived-backend-p): New function.
* testing/lisp/test-org-export.el: Add tests.
This function can be useful in filters implemation. I.e.
(defun my-filter (contents backend info)
(when (memq backend '(e-latex e-beamer some-derived-backend-from-latex))
...))
can be replaced with:
(defun my filter (contents backend info)
(when (org-export-derived-backend-p backend 'e-latex)
...))
* contrib/lisp/org-export.el (org-export-define-derived-backend): Add
`:parent' property to derived backend.
(org-export-derived-backend-p): New function.
* testing/lisp/test-org-export.el: Add tests.
This function can be useful in filters implemation. I.e.
(defun my-filter (contents backend info)
(when (memq backend '(e-latex e-beamer some-derived-backend-from-latex))
...))
can be replaced with:
(defun my filter (contents backend info)
(when (org-export-derived-backend-p backend 'e-latex)
...))
| contrib/lisp/org-export.el | diffblobblamehistory | |
| testing/lisp/test-org-export.el | diffblobblamehistory |