diff options
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 |