From becff06c71d277647eda4378203d03ab36e141eb Mon Sep 17 00:00:00 2001 From: mattkae Date: Tue, 17 May 2022 07:07:37 -0400 Subject: Evil mode and latex support --- elpa/auctex-13.1.3/style/epsf.el | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 elpa/auctex-13.1.3/style/epsf.el (limited to 'elpa/auctex-13.1.3/style/epsf.el') diff --git a/elpa/auctex-13.1.3/style/epsf.el b/elpa/auctex-13.1.3/style/epsf.el new file mode 100644 index 0000000..bfe6279 --- /dev/null +++ b/elpa/auctex-13.1.3/style/epsf.el @@ -0,0 +1,40 @@ +;;; epsf.el - Support for the epsf style option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2014, 2020 Free Software Foundation, Inc. + +;; Contributed by Marc Gemis + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "epsf" + (lambda () + (TeX-add-symbols + '("epsfsize" TeX-arg-epsfsize) + '("epsffile" TeX-arg-file) + '("epsfbox" TeX-arg-file) + "epsflly" "epsfury" "testit" "epsfgetlitbb" + "epsfnormal" "epsfgetbb" "other" "epsfsetgraph" + "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab" + "epsfllx" "epsflly" "epsfury" "epsfverbosetrue")) + TeX-dialect) + +(defun TeX-arg-epsfsize (_optional &optional _prompt _definition) + "Create a line that print epsf figures at a certain percentage" + (interactive) + (let ((scale (TeX-read-string "Scale in percent (default 75): "))) + (setq scale (if (zerop (length scale)) "75" scale)) + (save-excursion + ; append #1#{scale#1} + (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl) + ; insert \def before \epsfsize + (beginning-of-line 1) + (newline) + (insert TeX-esc "def") + (forward-line -1) + (insert "% From now on print figures at " scale "% of original size")) + (end-of-line))) + +;;; epsf.el ends here -- cgit v1.2.1