From: tsd@tsdye.com (Thomas S. Dye)
To: Org-mode <emacs-orgmode@gnu.org>
Subject: [PATCH] Add TEXINFO_POST_HEADER slot
Date: Tue, 27 Nov 2012 19:20:33 -1000 [thread overview]
Message-ID: <m1obiimhge.fsf@tsdye.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 298 bytes --]
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
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch for org-e-texinfo.el --]
[-- Type: text/x-patch, Size: 1655 bytes --]
From 2934d2e43eb354038d80b9e26f6f74dcffd4fa51 Mon Sep 17 00:00:00 2001
From: Thomas Dye <tsd@tsdye.com>
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
[-- Attachment #3: Type: text/plain, Size: 147 bytes --]
--
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
next reply other threads:[~2012-11-28 5:21 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-11-28 5:20 Thomas S. Dye [this message]
2012-12-04 14:25 ` [PATCH] Add TEXINFO_POST_HEADER slot Bastien
2012-12-04 16:48 ` [PATCH] " Thomas S. Dye
2012-12-22 23:37 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m1obiimhge.fsf@tsdye.com \
--to=tsd@tsdye.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).