From 90fcb4b841ee8a6d32c54d63ed98457a58586cea Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 28 Oct 2012 23:00:04 +0100 Subject: [PATCH] org-export: Add filter set for diary sexp elements * contrib/lisp/org-export.el (org-export-filters-alist): Add filter set for diary sexp elements. (org-export-filter-comment-block-functions): Fix docstring. (org-export-filter-diary-sexp-functions): New variable. --- contrib/lisp/org-export.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index c004fb4a4..134f1d064 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -176,6 +176,7 @@ way they are handled must be hard-coded into (:filter-code . org-export-filter-code-functions) (:filter-comment . org-export-filter-comment-functions) (:filter-comment-block . org-export-filter-comment-block-functions) + (:filter-diary-sexp . org-export-filter-diary-sexp-functions) (:filter-drawer . org-export-filter-drawer-functions) (:filter-dynamic-block . org-export-filter-dynamic-block-functions) (:filter-entity . org-export-filter-entity-functions) @@ -2138,7 +2139,13 @@ as a string, the back-end, as a symbol, and the communication channel, as a plist. It must return a string or nil.") (defvar org-export-filter-comment-block-functions nil - "List of functions applied to a transcoded comment-comment. + "List of functions applied to a transcoded comment-block. +Each filter is called with three arguments: the transcoded data, +as a string, the back-end, as a symbol, and the communication +channel, as a plist. It must return a string or nil.") + +(defvar org-export-filter-diary-sexp-functions nil + "List of functions applied to a transcoded diary-sexp. Each filter is called with three arguments: the transcoded data, as a string, the back-end, as a symbol, and the communication channel, as a plist. It must return a string or nil.")