diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/textpos.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/textpos.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/textpos.el | 126 |
1 files changed, 0 insertions, 126 deletions
diff --git a/elpa/auctex-13.1.3/style/textpos.el b/elpa/auctex-13.1.3/style/textpos.el deleted file mode 100644 index 0f02efb..0000000 --- a/elpa/auctex-13.1.3/style/textpos.el +++ /dev/null @@ -1,126 +0,0 @@ -;;; textpos.el --- AUCTeX style for `textpos.sty' version v1.7j -*- lexical-binding: t; -*- - -;; Copyright (C) 2015, 2016, 2020 Free Software Foundation, Inc. - -;; Author: Arash Esbati <arash@gnu.org> -;; Maintainer: auctex-devel@gnu.org -;; Created: 2015-07-04 -;; 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 `textpos.sty' version v1.7j from -;; 2014/01/03. `textpos.sty' is part of TeXLive. - -;;; Code: - -(require 'tex) -(require 'latex) - -;; Silence the compiler: -(declare-function LaTeX-color-definecolor-list "color" ()) -(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) - -(defun LaTeX-env-arg-textpos-textblock (env) - "Query for the arguments of `textblock' environment and insert -them." - (let* ((hsize (TeX-read-string "Width: ")) - (ho (TeX-read-string "(Optional) X reference point: ")) - (vo (when (not (string-equal ho "")) - (TeX-read-string "Y reference point: "))) - (hpos (TeX-read-string "X placement point: ")) - (vpos (TeX-read-string "Y placement point: "))) - (LaTeX-insert-environment - env - (concat - (when (and hsize (not (string-equal hsize ""))) - (format "{%s}" hsize)) - (when (and ho (not (string-equal ho "")) - vo (not (string-equal vo ""))) - (format "[%s,%s]" ho vo)) - (when (and hpos (not (string-equal hpos "")) - vpos (not (string-equal vpos ""))) - (format "(%s,%s)" hpos vpos)))))) - -(defun LaTeX-arg-textpos-tpgrid (optional) - "Query and insert the optional argument of `\\TPGrid'." - (let* ((x (TeX-read-string "(Optional) X start coordinate: ")) - (y (when (not (string-equal x "")) - (TeX-read-string "Y start coordinate: ")))) - (when (and (not (string-equal x "")) - (not (string-equal y ""))) - (TeX-argument-insert (format "%s,%s" x y) optional)))) - -(TeX-add-style-hook - "textpos" - (lambda () - - (TeX-run-style-hooks "everyshi") - - (LaTeX-add-environments - ;; \begin{textblock}{<hsize>}[<ho>,<vo>](<hpos>,<vpos>) ... \end{textblock} - '("textblock" LaTeX-env-arg-textpos-textblock) - '("textblock*" LaTeX-env-arg-textpos-textblock)) - - (TeX-add-symbols - '("TPGrid" [ LaTeX-arg-textpos-tpgrid ] - "Horizontal fraction" "Vertical fraction") - - '("TPMargin" (TeX-arg-length "Margin around textblock")) - '("TPMargin*" (TeX-arg-length "Margin around textblock")) - - ;; We ignore the `\textblock...color' (i.e. without `u') versions - '("textblockcolour" - (TeX-arg-eval - (lambda () - (let ((color (cond ((member "xcolor" (TeX-style-list)) - (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) - ((member "color" (TeX-style-list)) - (completing-read "Color name: " (LaTeX-color-definecolor-list))) - (t - (TeX-read-string "Color name: "))))) - (format "%s" color))))) - - '("textblockrulecolour" - (TeX-arg-eval - (lambda () - (let ((color (cond ((member "xcolor" (TeX-style-list)) - (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) - ((member "color" (TeX-style-list)) - (completing-read "Color name: " (LaTeX-color-definecolor-list))) - (t - (TeX-read-string "Color name: "))))) - (format "%s" color))))) - - '("TPshowboxestrue") - '("TPshowboxesfalse") - - '("textblocklabel" t) - '("textblockorigin" "Horizontal position" "Vertical position")) - - ;; Add the lengths defined by textpos.sty - (LaTeX-add-lengths "TPHorizModule" "TPVertModule" "TPboxrulesize")) - TeX-dialect) - -(defvar LaTeX-textpos-package-options - '("showboxes" "noshowtext" "absolute" "overlay" "verbose" "quiet") - "Package options for the textpos package.") - -;;; textpos.el ends here |