From: Andreas Rottmann Subject: [PATCH] Allow functions for {pre/post}amble --- lisp/org-html.el | 13 +++++++++++-- 1 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/org-html.el b/lisp/org-html.el index ee72065..be4ddfd 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -606,6 +606,7 @@ PUB-DIR is set, use this as the publishing directory." (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "UNTITLED")) + (custom-plist (org-combine-plists (list :title title) opt-plist)) (html-table-tag (plist-get opt-plist :html-table-tag)) (quote-re0 (concat "^[ \t]*" org-quote-string "\\>")) (quote-re (concat "^\\(\\*+\\)\\([ \t]+" org-quote-string "\\>\\)")) @@ -745,7 +746,7 @@ lang=\"%s\" xml:lang=\"%s\"> date author description keywords style)) - (insert (or (plist-get opt-plist :preamble) "")) + (org-export-html-insert-plist-item opt-plist :preamble custom-plist) (when (plist-get opt-plist :auto-preamble) (if title (insert (format org-export-html-title-format @@ -1372,7 +1373,7 @@ lang=\"%s\" xml:lang=\"%s\"> (if org-export-html-with-timestamp (insert org-export-html-html-helper-timestamp)) - (insert (or (plist-get opt-plist :postamble) "")) + (org-export-html-insert-plist-item opt-plist :postamble custom-plist) (insert "\n\n\n\n")) (unless (plist-get opt-plist :buffer-will-be-killed) @@ -1425,6 +1426,14 @@ lang=\"%s\" xml:lang=\"%s\"> (kill-buffer (current-buffer))) (current-buffer))))) +(defun org-export-html-insert-plist-item (plist key &rest args) + (let ((item (plist-get plist key))) + (cond ((functionp item) + (apply item args)) + (item + (insert item))))) + + (defun org-export-html-format-href (s) "Make sure the S is valid as a href reference in an XHTML document." (save-match-data -- tg: (0795e42..) t/html-export-amble-funtions (depends on: master)