diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/wrapfig.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/wrapfig.el | 121 |
1 files changed, 0 insertions, 121 deletions
diff --git a/elpa/auctex-13.1.3/style/wrapfig.el b/elpa/auctex-13.1.3/style/wrapfig.el deleted file mode 100644 index 35d8a05..0000000 --- a/elpa/auctex-13.1.3/style/wrapfig.el +++ /dev/null @@ -1,121 +0,0 @@ -;;; wrapfig.el --- AUCTeX style for `wrapfig.sty' version v3.6 -*- lexical-binding: t; -*- - -;; Copyright (C) 2014, 2015 Free Software Foundation, Inc. - -;; Author: Arash Esbati <arash@gnu.org> -;; Maintainer: auctex-devel@gnu.org -;; Created: 2014-12-13 -;; Keywords: tex - -;; This file is part of AUCTeX. - -;; AUCTeX is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 3, or (at your option) -;; any later version. - -;; AUCTeX is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with AUCTeX; see the file COPYING. If not, write to the Free -;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA -;; 02110-1301, USA. - -;;; Commentary: - -;; This file adds support for `wrapfig.sty' version v3.6 from -;; 2003/01/31. `wrapfig.sty' is part of TeXLive. - -;;; Code: - -(require 'tex) -(require 'latex) - -(TeX-add-style-hook - "wrapfig" - (lambda () - (LaTeX-add-environments - ;; \begin{wrapfigure}[No.lines]{Placement}[Overhang]{Width} ... \end{wrapfigure} - '("wrapfigure" - (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((narrow (TeX-read-string "(Optional) Number of narrow lines: ")) - (placement (completing-read - "Placement: " '(("r") ("R") - ("l") ("L") - ("i") ("I") - ("o") ("O")))) - (overhang (TeX-read-string "(Optional) Overhang: ")) - (width (TeX-read-string "Width: "))) - (concat - (unless (string= narrow "") - (format "[%s]" narrow)) - (format "{%s}" placement) - (unless (string= overhang "") - (format "[%s]" overhang)) - (format "{%s}" width)))))) - ;; - ;; \begin{wraptable}[No.lines]{Placement}[Overhang]{Width} ... \end{wraptable} - '("wraptable" - (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((narrow (TeX-read-string "(Optional) Number of narrow lines: ")) - (placement (completing-read - "Placement: " '(("r") ("R") - ("l") ("L") - ("i") ("I") - ("o") ("O")))) - (overhang (TeX-read-string "(Optional) Overhang: ")) - (width (TeX-read-string "Width: "))) - (concat - (unless (string= narrow "") - (format "[%s]" narrow)) - (format "{%s}" placement) - (unless (string= overhang "") - (format "[%s]" overhang)) - (format "{%s}" width)))))) - ;; - ;; \begin{wrapfloat}{<Type>}[No.lines]{Placement}[Overhang]{Width} ... \end{wrapfloat} - ;; - ;; <Type> can be a new floating environment defined with - ;; "\DeclareFloatingEnvironment" from newfloat.el. We check if - ;; the function `LaTeX-newfloat-DeclareFloatingEnvironment-list' - ;; is bound and returns non-nil before offering environment for - ;; completion. Otherwise, just ask user without completion. - '("wrapfloat" - (lambda (env &rest ignore) - (LaTeX-insert-environment - env - (let ((floattype (if (and (fboundp 'LaTeX-newfloat-DeclareFloatingEnvironment-list) - (LaTeX-newfloat-DeclareFloatingEnvironment-list)) - (completing-read - "Float type: " - (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) - (TeX-read-string "Float type: "))) - (narrow (TeX-read-string "(Optional) Number of narrow lines: ")) - (placement (completing-read - "Placement: " '(("r") ("R") - ("l") ("L") - ("i") ("I") - ("o") ("O")))) - (overhang (TeX-read-string "(Optional) Overhang: ")) - (width (TeX-read-string "Width: "))) - (concat - (format "{%s}" floattype) - (unless (string= narrow "") - (format "[%s]" narrow)) - (format "{%s}" placement) - (unless (string= overhang "") - (format "[%s]" overhang)) - (format "{%s}" width)))))))) - TeX-dialect) - -(defvar LaTeX-wrapfig-package-options '("verbose") - "Package options for the wrapfig package.") - -;;; wrapfig.el ends here |