[Accepted] [Orgmode] Allow inclusion of author's email in LaTeX export

[Bastien Guerry]

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 <address@hidden>
> X-Patchwork-Id: 536
> Message-Id: <address@hidden>
> To: address@hidden
> Cc: Lawrence Mitchell <address@hidden>
> 
> * 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
>