summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/beamer/emacs/beamer.el
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/beamer/emacs/beamer.el')
-rw-r--r--Master/texmf-dist/doc/latex/beamer/emacs/beamer.el134
1 files changed, 134 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/beamer/emacs/beamer.el b/Master/texmf-dist/doc/latex/beamer/emacs/beamer.el
new file mode 100644
index 00000000000..6a12d4bde10
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/beamer/emacs/beamer.el
@@ -0,0 +1,134 @@
+;;; beamer.el --- AUCTeX style for the latex-beamer class
+
+;; Copyright (C) 2004 Thomas Baumann
+;; License: GPL, see the file COPYING in the base directory of AUCTeX
+
+;; Author: Thomas Baumann <thomas.baumann@ch.tum.de>
+;; Created: 2003-12-20
+;; Version: $Id: beamer.el,v 1.3 2004/04/29 05:07:22 tantau Exp $
+;; Keywords: tex
+
+;;; Commentary:
+
+;; This file adds support for the latex-beamer class.
+;;
+;; This file is intended to be used with the AUCTeX-Package.
+;; Put this File into your TeX-style-path. You may also
+;; byte-compile this file.
+
+;;; Code:
+(TeX-add-style-hook "beamer"
+ (function
+ (lambda ()
+ (defvar beamer-use-section-labels-flag nil
+ "Controls whether section labels are added")
+ (unless beamer-use-section-labels-flag
+ (make-local-variable 'LaTeX-section-hook)
+ (setq LaTeX-section-hook
+ '(LaTeX-section-heading
+ LaTeX-section-title
+ LaTeX-section-section)))
+
+ (setq LaTeX-item-list
+ (append '(("itemize" . LaTeX-item-beamer)
+ ("enumerate" . LaTeX-item-beamer))
+ LaTeX-item-list))
+
+ (TeX-add-symbols
+ '("alert" 1)
+ '("alt" TeX-arg-beamer-overlay-spec 2)
+ '("beamerbutton" 1)
+ '("beamergotobutton" 1)
+ '("beamerreturnbutton" 1)
+ '("beamerskipbutton" 1)
+ '("frame" TeX-arg-beamer-frametitle)
+ '("frametitle" 1)
+ '("hyperlink" TeX-arg-beamer-overlay-spec 2)
+ '("hyperlinkslideprev" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkslidenext" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkframestart" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkframeend" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkframestartnext" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkframeendprev" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkpresentationstart" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkpresentationend" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkappendixstart" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkappendixend" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkdocumentstart" TeX-arg-beamer-overlay-spec 1)
+ '("hyperlinkdocumentend" TeX-arg-beamer-overlay-spec 1)
+ '("hypertarget" TeX-arg-beamer-overlay-spec 2)
+ '("institute" 1)
+ '("invisible" TeX-arg-beamer-overlay-spec 1)
+ '("label" TeX-arg-beamer-overlay-spec 1)
+ '("logo" 1)
+ '("note" TeX-arg-beamer-note 1)
+ '("only" TeX-arg-beamer-overlay-spec 1)
+ '("onslide" TeX-arg-beamer-overlay-spec)
+ '("partpage")
+ '("pause")
+ '("structure" TeX-arg-beamer-overlay-spec 1)
+ '("temporal" TeX-arg-beamer-overlay-spec 3)
+ '("titlepage")
+ '("titlegraphic" 1)
+ '("uncover" TeX-arg-beamer-overlay-spec 1)
+ '("visible" TeX-arg-beamer-overlay-spec 1)
+ )
+
+ (LaTeX-add-environments
+ '("actionenv")
+ '("alertblock" 1)
+ '("beamerboxesrounded" 1)
+ '("block" 1)
+ '("column" "Width")
+ "columns"
+ "columnsonlytextwidth"
+ '("exampleblock" 1)
+ '("onlyenv" (lambda (env &rest ignore)
+ (LaTeX-insert-environment
+ env
+ (let ((overlay (read-input "Overlay: ")))
+ (if (not (zerop (length overlay)))
+ (format "<%s>" overlay))))))
+ '("overlayarea" "Area width" "Area height")
+ '("overprint" (lambda (env &rest ignore)
+ (LaTeX-insert-environment
+ env
+ (let ((overlay (read-input "Overlay: ")))
+ (if (not (zerop (length overlay)))
+ (format "{%s}" overlay)))))))
+
+ )))
+
+(defun TeX-arg-beamer-overlay-spec (optional &optional prompt)
+ "Prompt for overlay specification."
+ (let ((overlay (read-input "Overlay: ")))
+ (if (not (zerop (length overlay)))
+ (progn (insert "<" overlay ">")))
+ (indent-according-to-mode)))
+
+(defun TeX-arg-beamer-frametitle (optional &optional prompt)
+ "Prompt for the frametitle."
+ (let ((title (read-input "What title: ")))
+ (if (not (zerop (length title)))
+ (progn (insert TeX-grop TeX-esc "frametitle" TeX-grop
+ title TeX-grcl TeX-grcl))
+ (progn (insert TeX-grop TeX-grcl)))))
+
+(defun LaTeX-item-beamer ()
+ "Insert a new item with an optional overlay argument."
+ (TeX-insert-macro "item")
+ (delete-horizontal-space)
+ (TeX-arg-beamer-overlay-spec 0)
+ (insert " ")
+ (indent-according-to-mode))
+
+(defun TeX-arg-beamer-note (optional &optional prompt)
+ "Prompt for overlay specification and optional argument."
+ (let ((overlay (read-input "Overlay: "))
+ (options (read-input "Options: ")))
+ (if (not (zerop (length overlay)))
+ (progn (insert "<" overlay ">")))
+ (if (not (zerop (length options)))
+ (progn (insert "[" options "]")))
+ (indent-according-to-mode)))
+