1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00

ox-beamer: Remove `org-beamer-insert-options-template'

* lisp/ox-beamer.el (beamer): Re-order keywords.
(org-beamer-insert-options-template): Remove function.

* doc/org.texi (Beamer export): Remove reference to the previous
  function.

Use the generic insertion mechanism provided in "ox.el"
instead (`org-export-insert-default-template') in order to avoid code
duplication.
This commit is contained in:
Nicolas Goaziou 2014-06-15 10:26:40 +02:00
parent 03dfc23505
commit 7a8de7d1e3
2 changed files with 5 additions and 35 deletions

View File

@ -11009,11 +11009,6 @@ In @code{org-beamer-mode}, this key offers fast selection of a Beamer
environment or the @code{BEAMER_COL} property. environment or the @code{BEAMER_COL} property.
@end table @end table
Also, a template for useful in-buffer settings or properties can be inserted
into the buffer with @kbd{M-x org-beamer-insert-options-template}. Among
other things, this will install a column view format which is very handy for
editing special properties used by Beamer.
@subheading An example @subheading An example
Here is a simple example Org document that is intended for Beamer export. Here is a simple example Org document that is intended for Beamer export.

View File

@ -231,20 +231,19 @@ Return overlay specification, as a string, or nil."
(if a (org-beamer-export-to-pdf t s v b) (if a (org-beamer-export-to-pdf t s v b)
(org-open-file (org-beamer-export-to-pdf nil s v b))))))) (org-open-file (org-beamer-export-to-pdf nil s v b)))))))
:options-alist :options-alist
'((:beamer-theme "BEAMER_THEME" nil org-beamer-theme) '((:headline-levels nil "H" org-beamer-frame-level)
(:latex-class "LATEX_CLASS" nil "beamer" t)
(:beamer-column-view-format "COLUMNS" nil org-beamer-column-view-format)
(:beamer-theme "BEAMER_THEME" nil org-beamer-theme)
(:beamer-color-theme "BEAMER_COLOR_THEME" nil nil t) (:beamer-color-theme "BEAMER_COLOR_THEME" nil nil t)
(:beamer-font-theme "BEAMER_FONT_THEME" nil nil t) (:beamer-font-theme "BEAMER_FONT_THEME" nil nil t)
(:beamer-inner-theme "BEAMER_INNER_THEME" nil nil t) (:beamer-inner-theme "BEAMER_INNER_THEME" nil nil t)
(:beamer-outer-theme "BEAMER_OUTER_THEME" nil nil t) (:beamer-outer-theme "BEAMER_OUTER_THEME" nil nil t)
(:beamer-header-extra "BEAMER_HEADER" nil nil newline) (:beamer-header-extra "BEAMER_HEADER" nil nil newline)
(:beamer-column-view-format nil nil org-beamer-column-view-format)
(:beamer-environments-extra nil nil org-beamer-environments-extra) (:beamer-environments-extra nil nil org-beamer-environments-extra)
(:beamer-frame-default-options nil nil org-beamer-frame-default-options) (:beamer-frame-default-options nil nil org-beamer-frame-default-options)
(:beamer-outline-frame-options nil nil org-beamer-outline-frame-options) (:beamer-outline-frame-options nil nil org-beamer-outline-frame-options)
(:beamer-outline-frame-title nil nil org-beamer-outline-frame-title) (:beamer-outline-frame-title nil nil org-beamer-outline-frame-title))
;; Modify existing properties.
(:headline-levels nil "H" org-beamer-frame-level)
(:latex-class "LATEX_CLASS" nil "beamer" t))
:translate-alist '((bold . org-beamer-bold) :translate-alist '((bold . org-beamer-bold)
(export-block . org-beamer-export-block) (export-block . org-beamer-export-block)
(export-snippet . org-beamer-export-snippet) (export-snippet . org-beamer-export-snippet)
@ -1125,30 +1124,6 @@ aid, but the tag does not have any semantic meaning."
(org-entry-put nil "BEAMER_env" (match-string 1 tags))) (org-entry-put nil "BEAMER_env" (match-string 1 tags)))
(t (org-entry-delete nil "BEAMER_env")))))) (t (org-entry-delete nil "BEAMER_env"))))))
;;;###autoload
(defun org-beamer-insert-options-template (&optional kind)
"Insert a settings template, to make sure users do this right."
(interactive (progn
(message "Current [s]ubtree or [g]lobal?")
(if (eq (read-char-exclusive) ?g) (list 'global)
(list 'subtree))))
(if (eq kind 'subtree)
(progn
(org-back-to-heading t)
(org-reveal)
(org-entry-put nil "EXPORT_LaTeX_CLASS" "beamer")
(org-entry-put nil "EXPORT_LaTeX_CLASS_OPTIONS" "[presentation]")
(org-entry-put nil "EXPORT_FILE_NAME" "presentation.pdf")
(when org-beamer-column-view-format
(org-entry-put nil "COLUMNS" org-beamer-column-view-format))
(org-entry-put nil "BEAMER_col_ALL" org-beamer-column-widths))
(insert "#+LaTeX_CLASS: beamer\n")
(insert "#+LaTeX_CLASS_OPTIONS: [presentation]\n")
(when org-beamer-theme (insert "#+BEAMER_THEME: " org-beamer-theme "\n"))
(when org-beamer-column-view-format
(insert "#+COLUMNS: " org-beamer-column-view-format "\n"))
(insert "#+PROPERTY: BEAMER_col_ALL " org-beamer-column-widths "\n")))
;;;###autoload ;;;###autoload
(defun org-beamer-publish-to-latex (plist filename pub-dir) (defun org-beamer-publish-to-latex (plist filename pub-dir)
"Publish an Org file to a Beamer presentation (LaTeX). "Publish an Org file to a Beamer presentation (LaTeX).