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:
parent
03dfc23505
commit
7a8de7d1e3
@ -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.
|
||||||
|
@ -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).
|
||||||
|
Loading…
Reference in New Issue
Block a user