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/epsf.el | |
parent | 3f4a0d5370ae6c34afe180df96add3b8522f4af1 (diff) |
Evil mode and latex support
Diffstat (limited to 'elpa/auctex-13.1.3/style/epsf.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/epsf.el | 40 |
1 files changed, 40 insertions, 0 deletions
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 <makke@wins.uia.ac.be> + +;;; 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 |