emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH] Allow inclusion of author's email in LaTeX export
@ 2011-01-13 14:29 Lawrence Mitchell
  2011-01-17 19:18 ` [Accepted] " Bastien Guerry
  2011-01-17 19:21 ` [PATCH] " Bastien
  0 siblings, 2 replies; 8+ messages in thread
From: Lawrence Mitchell @ 2011-01-13 14:29 UTC (permalink / raw)
  To: emacs-orgmode; +Cc: Lawrence Mitchell

* org-latex.el (org-export-latex-make-header): Export email in
author line if `org-export-email-info' is non-nil.

Previously exporting to LaTeX would not include the document author's
email address when org-export-email-info was set.  This patch corrects
this oversight using the \thanks command to add a footnote to the
author line.
---
lisp/org-latex.el |   12 +++++++++---
 1 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 8a9f9eb..4b36273 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -1276,7 +1276,9 @@ TITLE is the current title from the buffer or region.
 OPT-PLIST is the options plist for current buffer."
   (let ((toc (plist-get opt-plist :table-of-contents))
 	(author (org-export-apply-macros-in-string
-		 (plist-get opt-plist :author))))
+		 (plist-get opt-plist :author)))
+	(email (org-export-apply-macros-in-string
+		(plist-get opt-plist :email))))
     (concat
      (if (plist-get opt-plist :time-stamp-file)
 	 (format-time-string "%% Created %Y-%m-%d %a %H:%M\n"))
@@ -1300,8 +1302,12 @@ OPT-PLIST is the options plist for current buffer."
       (org-export-latex-fontify-headline title))
      ;; insert author info
      (if (plist-get opt-plist :author-info)
-	 (format "\\author{%s}\n"
-		 (org-export-latex-fontify-headline (or author user-full-name)))
+	 (format "\\author{%s%s}\n"
+		 (org-export-latex-fontify-headline (or author user-full-name))
+		 (if (and org-export-email-info email
+			  (string-match "\\S-" email))
+		     (format "\\thanks{%s}" email)
+		   ""))
        (format "%%\\author{%s}\n"
 	       (org-export-latex-fontify-headline (or author user-full-name))))
      ;; insert the date
-- 
1.7.4.rc1.7.g2cf08

^ permalink raw reply related	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2011-03-01 19:15 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-01-13 14:29 [PATCH] Allow inclusion of author's email in LaTeX export Lawrence Mitchell
2011-01-17 19:18 ` [Accepted] " Bastien Guerry
2011-01-17 19:21 ` [PATCH] " Bastien
2011-02-22 21:25   ` Hsiu-Khuern Tang
2011-02-26 16:31     ` Bastien
2011-02-28 23:47       ` Hsiu-Khuern Tang
2011-03-01 17:36         ` Bastien
2011-03-01 18:59           ` Hsiu-Khuern Tang

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).