From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Guerry Subject: [Accepted] Allow inclusion of author's email in LaTeX export Date: Mon, 17 Jan 2011 20:18:36 +0100 (CET) Message-ID: <20110117191836.45FAD46626@myhost.localdomain> References: <1294928979-14439-1-git-send-email-wence@gmx.li> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=59196 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PeubM-00050t-0G for emacs-orgmode@gnu.org; Mon, 17 Jan 2011 14:18:53 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PeubK-0004SI-8j for emacs-orgmode@gnu.org; Mon, 17 Jan 2011 14:18:51 -0500 Received: from mail-fx0-f67.google.com ([209.85.161.67]:46822) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PeubK-0004S5-1P for emacs-orgmode@gnu.org; Mon, 17 Jan 2011 14:18:50 -0500 Received: by fxm17 with SMTP id 17so2306231fxm.6 for ; Mon, 17 Jan 2011 11:18:49 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Patch 536 (http://patchwork.newartisans.com/patch/536/) is now "Accepted". Maintainer comment: none This relates to the following submission: http://mid.gmane.org/%3C1294928979-14439-1-git-send-email-wence%40gmx.li%3E Here is the original message containing the patch: > Content-Type: text/plain; charset="utf-8" > MIME-Version: 1.0 > Content-Transfer-Encoding: 7bit > Subject: [Orgmode] Allow inclusion of author's email in LaTeX export > Date: Thu, 13 Jan 2011 19:29:39 -0000 > From: Lawrence Mitchell > X-Patchwork-Id: 536 > Message-Id: <1294928979-14439-1-git-send-email-wence@gmx.li> > To: emacs-orgmode@gnu.org > 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 >