Re: Replace EMAIL keyword by some LaTeX command

[Xavier Garrido <xavier.garrido@gmail.com>]

Hi Rasmus,

It works like a charm ! Thanks a lot for the trick and for your help.

Xavier

Le 15/10/2013 02:11, Rasmus a écrit :
>
> #+BEGIN_SRC Org
> #+TITLE:  LaTeX test
> #+AUTHOR: toto
> #+EMAIL:  toto@toto.org
> #+LATEX_HEADER: \usepackage{nopkg}
> #+OPTIONS: with-email: t
> Note that
>    1. email is inserted after other =latex_headers=
>    2. with-email is ignored and only the presence of email matters.
>       - You could add a check to =(plist-get options :with-email)= in
>         the =(and ...)= statement below and remove the =\thanks{.}= in
>         a final output filter.
>
> #+begin_src emacs-lisp
>    (defun rasmus/force-insert-email (options backend)
>      "Insert EMAIL as \email{EMAIL} in the latex backend when EMAIL is present."
>      (when (and (org-export-derived-backend-p backend 'latex)
>                 (plist-get options :email))
>        (plist-put options :latex-header
>                   (mapconcat 'identity
>                              (remove nil
>                                      (list
>                                       (plist-get options :latex-header)
>                                       (format "\\email{%s}"
>                                               (plist-get options :email))))
>                              "\n"))
>        ;; don't insert email in \thanks{.}
>        (plist-put options :with-email nil))
>      options)
>
>    (add-to-list 'org-export-filter-options-functions 'rasmus/force-insert-email)
> #+end_src
> #+END_SRC
>
>