blob: bfe6279bd55a89d743bea1e63a7adf7f32f91597 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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
|
