From: Don Armstrong Date: Tue, 15 Dec 2015 02:54:02 +0000 (-0600) Subject: move auctex to auctex-beamer X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=03b0346c5cc290173266fb7abb4aacba5f931eca;p=lib.git move auctex to auctex-beamer --- diff --git a/emacs_el/auctex-beamer/beamer.el b/emacs_el/auctex-beamer/beamer.el new file mode 100644 index 0000000..6a12d4b --- /dev/null +++ b/emacs_el/auctex-beamer/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 +;; 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))) + diff --git a/emacs_el/auctex/beamer.el b/emacs_el/auctex/beamer.el deleted file mode 100644 index 6a12d4b..0000000 --- a/emacs_el/auctex/beamer.el +++ /dev/null @@ -1,134 +0,0 @@ -;;; 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 -;; 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))) -