diff options
author | mattkae <mattkae@protonmail.com> | 2022-05-17 07:07:37 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-05-17 07:07:37 -0400 |
commit | becff06c71d277647eda4378203d03ab36e141eb (patch) | |
tree | a1f73bba3676f34e0faf76764f5de963321f5576 /elpa/auctex-13.1.3/style/wrapfig.el | |
parent | 3f4a0d5370ae6c34afe180df96add3b8522f4af1 (diff) |
Evil mode and latex support
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, 121 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/wrapfig.el b/elpa/auctex-13.1.3/style/wrapfig.el new file mode 100644 index 0000000..35d8a05 --- /dev/null +++ b/elpa/auctex-13.1.3/style/wrapfig.el @@ -0,0 +1,121 @@ +;;; 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 |