From: Matthew Gidden <gidden@wisc.edu>
To: Matthew Gidden <gidden@wisc.edu>, emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: [PATCH] Adding a BEAMER_HEADER_EXTRA tag, allows short titles, etc.
Date: Tue, 10 Mar 2015 11:10:01 -0500 [thread overview]
Message-ID: <CAHRdPFyt7p1E_wcsYKp5QiTYB5KdjDrBORR11AxBQUx7DiBN=A@mail.gmail.com> (raw)
In-Reply-To: <87385c3li6.fsf@nicolasgoaziou.fr>
[-- Attachment #1.1: Type: text/plain, Size: 1119 bytes --]
Updated patch attached
On Tue, Mar 10, 2015 at 10:44 AM, Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:
> Matthew Gidden <gidden@wisc.edu> writes:
>
> > Updated patch with updated commit message attached.
>
> Thank you.
>
> > Subject: [PATCH] org-beamer.el: Enable custom beamer input before
> > \begin{document}
>
> "ox-beamer". Also the summary is too long.
>
> > * lisp/ox-beamer.el (`beamer-header'): Move BEAMER_HEADER injection to
> > final part of preamble (after themes, title, etc.). Allows for
> > custom short titles, etc., with #+BEAMER_HEADER: \title[Short]{Long}.
> >
> > Previously, TITLE was being injected after BEAMER_HEADER, so short
> > titles (and related) could not be added. BEAMER_HEADER now serves as a
> > final preamble injection point.
>
> Two spaces are required after sentences.
>
> Otherwise, the patch looks good.
>
> Could you add a footnote about this change at (info "(org) Beamer
> export"), close to #+BEAMER_HEADER reference, in "org.texi"?
>
>
> Regards,
>
--
Matthew Gidden
Ph.D. Candidate, Nuclear Engineering
The University of Wisconsin -- Madison
Ph. 225.892.3192
[-- Attachment #1.2: Type: text/html, Size: 1752 bytes --]
[-- Attachment #2: 0001-ox-beamer.el-Update-BEAMER_HEADER-placement.patch --]
[-- Type: text/x-patch, Size: 4787 bytes --]
From 08f163ee4891e49d8884e7c43418b9091badfb11 Mon Sep 17 00:00:00 2001
From: Matthew Gidden <matthew.gidden@gmail.com>
Date: Mon, 9 Mar 2015 16:25:15 -0500
Subject: [PATCH] ox-beamer.el: Update BEAMER_HEADER placement
* lisp/ox-beamer.el (`beamer-header'): Move BEAMER_HEADER injection to
final part of preamble (after themes, title, etc.). Allows for
custom short titles, etc., with #+BEAMER_HEADER:
\title[Short]{Long}.
* doc/org.texi: Updated BEAMER_HEADER entry with a relevant footnote.
Previously, TITLE, etc., was being injected after BEAMER_HEADER, so
short titles (and related) could not be added. BEAMER_HEADER now
serves as a final preamble injection point.
TINYCHANGE
---
doc/org.texi | 8 +++++---
lisp/ox-beamer.el | 23 +++++++++++++----------
2 files changed, 18 insertions(+), 13 deletions(-)
diff --git a/doc/org.texi b/doc/org.texi
index edb6cf0..6c72302 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -11038,9 +11038,11 @@ Beamer export introduces a number of keywords to insert code in the
document's header. Four control appearance of the presentation:
@code{#+BEAMER_THEME}, @code{#+BEAMER_COLOR_THEME},
@code{#+BEAMER_FONT_THEME}, @code{#+BEAMER_INNER_THEME} and
-@code{#+BEAMER_OUTER_THEME}. All of them accept optional arguments
-within square brackets. The last one, @code{#+BEAMER_HEADER}, is more
-generic and allows you to append any line of code in the header.
+@code{#+BEAMER_OUTER_THEME}. All of them accept optional arguments within
+square brackets. The last one, @code{#+BEAMER_HEADER}, is more generic and
+allows you to append any line of code in the header@footnote{Lines are
+appended at the end of the header/preamble, allowing for any final
+customization such as the inclusion of short titles}.
@example
#+BEAMER_THEME: Rochester [height=20pt]
diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el
index e10d36c..359ccdc 100644
--- a/lisp/ox-beamer.el
+++ b/lisp/ox-beamer.el
@@ -239,7 +239,7 @@ Return overlay specification, as a string, or nil."
(:beamer-font-theme "BEAMER_FONT_THEME" nil nil t)
(:beamer-inner-theme "BEAMER_INNER_THEME" nil nil t)
(:beamer-outer-theme "BEAMER_OUTER_THEME" nil nil t)
- (:beamer-header-extra "BEAMER_HEADER" nil nil newline)
+ (:beamer-header "BEAMER_HEADER" nil nil newline)
(:beamer-environments-extra nil nil org-beamer-environments-extra)
(:beamer-frame-default-options nil nil org-beamer-frame-default-options)
(:beamer-outline-frame-options nil nil org-beamer-outline-frame-options)
@@ -825,8 +825,7 @@ holding export options."
(concat (org-element-normalize-string
(plist-get info :latex-header))
(org-element-normalize-string
- (plist-get info :latex-header-extra))
- (plist-get info :beamer-header-extra)))))
+ (plist-get info :latex-header-extra))))))
info)))
;; 3. Insert themes.
(let ((format-theme
@@ -866,16 +865,20 @@ holding export options."
(format "\\date{%s}\n" (org-export-data date info)))
;; 7. Title
(format "\\title{%s}\n" title)
- ;; 8. Hyperref options.
+ ;; 8. Beamer-header
+ (let ((beamer-header (plist-get info :beamer-header)))
+ (when beamer-header
+ (format "%s\n" (plist-get info :beamer-header))))
+ ;; 9. Hyperref options.
(when (plist-get info :latex-hyperref-p)
(format "\\hypersetup{\n pdfkeywords={%s},\n pdfsubject={%s},\n pdfcreator={%s}}\n"
(or (plist-get info :keywords) "")
(or (plist-get info :description) "")
(if (not (plist-get info :with-creator)) ""
(plist-get info :creator))))
- ;; 9. Document start.
+ ;; 10. Document start.
"\\begin{document}\n\n"
- ;; 10. Title command.
+ ;; 11. Title command.
(org-element-normalize-string
(cond ((not (plist-get info :with-title)) nil)
((string= "" title) nil)
@@ -884,7 +887,7 @@ holding export options."
org-latex-title-command)
(format org-latex-title-command title))
(t org-latex-title-command)))
- ;; 11. Table of contents.
+ ;; 12. Table of contents.
(let ((depth (plist-get info :with-toc)))
(when depth
(concat
@@ -896,16 +899,16 @@ holding export options."
(format "\\setcounter{tocdepth}{%d}\n" depth))
"\\tableofcontents\n"
"\\end{frame}\n\n")))
- ;; 12. Document's body.
+ ;; 13. Document's body.
contents
- ;; 13. Creator.
+ ;; 14. Creator.
(let ((creator-info (plist-get info :with-creator)))
(cond
((not creator-info) "")
((eq creator-info 'comment)
(format "%% %s\n" (plist-get info :creator)))
(t (concat (plist-get info :creator) "\n"))))
- ;; 14. Document end.
+ ;; 15. Document end.
"\\end{document}")))
--
1.9.1
next prev parent reply other threads:[~2015-03-10 16:10 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-03-09 21:56 [PATCH] Adding a BEAMER_HEADER_EXTRA tag, allows short titles, etc Matthew Gidden
2015-03-09 23:19 ` Nicolas Goaziou
2015-03-09 23:46 ` Matthew Gidden
2015-03-10 14:44 ` Nicolas Goaziou
2015-03-10 14:45 ` Matthew Gidden
2015-03-10 15:15 ` Matthew Gidden
2015-03-10 15:44 ` Nicolas Goaziou
2015-03-10 16:10 ` Matthew Gidden [this message]
2015-03-10 20:22 ` Nicolas Goaziou
2015-03-09 23:50 ` Rasmus
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='CAHRdPFyt7p1E_wcsYKp5QiTYB5KdjDrBORR11AxBQUx7DiBN=A@mail.gmail.com' \
--to=gidden@wisc.edu \
--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).