diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/emp.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/emp.el | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/elpa/auctex-13.1.3/style/emp.el b/elpa/auctex-13.1.3/style/emp.el deleted file mode 100644 index ad2bc27..0000000 --- a/elpa/auctex-13.1.3/style/emp.el +++ /dev/null @@ -1,85 +0,0 @@ -;;; emp.el --- AUCTeX support for emp.sty -*- lexical-binding: t; -*- - -;; Copyright (C) 2004, 2005, 2014, 2020 Free Software Foundation, Inc. - -;; Author: Yvon Henel aka TeXnicien de surface <Yvon.Henel@wanadoo.fr> -;; Maintainer: auctex-devel@gnu.org -;; Keywords: tex - -;; This file 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. - -;; This file 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 GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;; version 1.0 2004-03-04 - -;;; Code: - -(require 'tex) -(require 'latex) - -(TeX-add-style-hook - "emp" - (lambda () - (TeX-add-symbols "empuse" "empTeX" "empaddtoTeX" - "emprelude" "empaddtoprelude" "unitlength") - (LaTeX-add-environments - '("empfile" LaTeX-env-empfile) - '("emp" LaTeX-env-emp-gen) - '("empdef" LaTeX-env-emp-gen) - '("empgraph" LaTeX-env-emp-gen) - '("empcmds"))) - TeX-dialect) - -(defun LaTeX-env-emp-gen (environment-name) - "Ask for file, width and length. Insert environment-name environment -Used for emp, empdef, and empgraph environments." - (let ((emp-fig-name (TeX-read-string "figure name: " "")) - (emp-fig-width (TeX-read-string "figure width: " "1" )) - (emp-fig-height (TeX-read-string "figure height: " "1" )) - ;;; emp.sty demands a width and a height for each of the - ;;; emp, empdef, and empgraph environments - ;;; we give them 1 by default - ;;; not necessarily the best thing to do? - LaTeX-emp-fig-name) - (if (not (zerop (length emp-fig-name))) - (progn - (setq LaTeX-emp-fig-name (concat LaTeX-optop emp-fig-name LaTeX-optcl)) - (LaTeX-insert-environment environment-name LaTeX-emp-fig-name)) - (LaTeX-insert-environment environment-name)) - (forward-line -1) - (end-of-line) - (insert "(" emp-fig-width "," emp-fig-height ")") - (forward-line 1) - (indent-according-to-mode))) - -(defun LaTeX-env-empfile (_optional) - "Ask for file. Insert empfile environment." - (let ((empfile (TeX-read-string "empfile: " "")) - LaTeX-emp-file-name mpost-emp-file-name) - (if (not (zerop (length empfile))) - (progn - (setq LaTeX-emp-file-name (concat LaTeX-optop empfile LaTeX-optcl)) - (setq mpost-emp-file-name (concat empfile ".mp")) - (LaTeX-insert-environment "empfile" LaTeX-emp-file-name)) - (setq mpost-emp-file-name "\\jobname") - (LaTeX-insert-environment "empfile")) - (if LaTeX-write18-enabled-p - (progn - (forward-line 1) - (end-of-line) - (newline-and-indent) - (insert "\\immediate\\write18{mpost -tex=latex " mpost-emp-file-name TeX-grcl) - (forward-line -2))))) - -;;; emp.el ends here |