From mboxrd@z Thu Jan 1 00:00:00 1970 From: tsd@tsdye.com (Thomas S. Dye) Subject: [PATCH] Add TEXINFO_POST_HEADER slot Date: Tue, 27 Nov 2012 19:20:33 -1000 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:58319) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tda51-0007w9-Uv for emacs-orgmode@gnu.org; Wed, 28 Nov 2012 00:21:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Tda50-0001V0-Jw for emacs-orgmode@gnu.org; Wed, 28 Nov 2012 00:21:03 -0500 Received: from oproxy12-pub.bluehost.com ([50.87.16.10]:40746) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1Tda50-0001Uo-Ay for emacs-orgmode@gnu.org; Wed, 28 Nov 2012 00:21:02 -0500 Received: from [98.155.255.145] (port=51340 helo=poto.local) by box472.bluehost.com with esmtpsa (TLSv1:CAMELLIA128-SHA:128) (Exim 4.76) (envelope-from ) id 1Tda4a-0000k2-QO for emacs-orgmode@gnu.org; Tue, 27 Nov 2012 22:20:37 -0700 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org-mode --=-=-= Content-Type: text/plain Aloha all, The attached patch opens up a slot to insert material between the header and body of a texinfo file. The Org manual uses this space to define several macros that are used extensively through the rest of the document. Please feel free to improve/change if need be. All the best, Tom --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-contrib-lisp-org-e-texinfo.el-Added-TEXINFO_POST_HEA.patch Content-Description: Patch for org-e-texinfo.el >From 2934d2e43eb354038d80b9e26f6f74dcffd4fa51 Mon Sep 17 00:00:00 2001 From: Thomas Dye Date: Tue, 27 Nov 2012 19:11:03 -1000 Subject: [PATCH] * contrib/lisp/org-e-texinfo.el: Added TEXINFO_POST_HEADER slot --- contrib/lisp/org-e-texinfo.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/contrib/lisp/org-e-texinfo.el b/contrib/lisp/org-e-texinfo.el index d006c07..6f5959c 100644 --- a/contrib/lisp/org-e-texinfo.el +++ b/contrib/lisp/org-e-texinfo.el @@ -126,6 +126,7 @@ ((:texinfo-filename "TEXINFO_FILENAME" nil org-e-texinfo-filename t) (:texinfo-class "TEXINFO_CLASS" nil org-e-texinfo-default-class t) (:texinfo-header "TEXINFO_HEADER" nil nil newline) + (:texinfo-post-header "TEXINFO_POST_HEADER" nil nil newline) (:subtitle "SUBTITLE" nil nil newline) (:subauthor "SUBAUTHOR" nil nil newline) (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t) @@ -651,6 +652,7 @@ holding export options." (org-export-output-file-name ".info")))) (author (org-export-data (plist-get info :author) info)) (texinfo-header (plist-get info :texinfo-header)) + (texinfo-post-header (plist-get info :texinfo-post-header)) (subtitle (plist-get info :subtitle)) (subauthor (plist-get info :subauthor)) (class (plist-get info :texinfo-class)) @@ -685,6 +687,12 @@ holding export options." "@finalout\n" "\n\n" + ;; Additional Header Options set by `#+TEXINFO_POST_HEADER + (if texinfo-post-header + (concat "\n" + texinfo-post-header + "\n")) + ;; Copying "@copying\n" ;; Only export the content of the headline, do not need the -- 1.8.0 --=-=-= Content-Type: text/plain -- T.S. Dye & Colleagues, Archaeologists 735 Bishop St, Suite 315, Honolulu, HI 96813 Tel: 808-529-0866, Fax: 808-529-0884 http://www.tsdye.com --=-=-=--