Mercurial > hg > xemacs-beta

comparison etc/auctex/style/epsf.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents ee648375d8d6
children
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
1 ;;; epsf.el - Support for the epsf style option.
2
3 ;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
4
5 ;;; Code:
6
7 (TeX-add-style-hook "epsf"
8 (function
9 (lambda ()
10 (TeX-add-symbols
11 '("epsfsize" TeX-arg-epsfsize)
12 '("epsffile" TeX-arg-file)
13 '("epsfbox" TeX-arg-file)
14 "epsflly" "epsfury" "testit" "epsfgetlitbb"
15 "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
16 "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
17 "epsfllx" "epsflly" "epsfury" "epsfverbosetrue"
18 )
19 (LaTeX-add-environments
20 '("epsffig" LaTeX-env-epsffigure)
21 )
22
23 )))
24
25
26 (defun LaTeX-env-epsffigure (environment)
27 "Create a `figure'-environment with \\label and \\caption and \\epsfbox
28 commands. Eventually a `psfrags'-environment is inserted round the \\epsfbox."
29
30 (let ((float (read-input "Float to: " LaTeX-float))
31 (caption (read-input "Caption: "))
32 (label (read-input "Label: " LaTeX-figure-label))
33 ; gf: ask if there is an psfrag environment needed
34 (psfrag (y-or-n-p "PS fragments: "))
35 (psfile (read-file-name "EPS-file: " "" "" nil))
36 )
37
38 (setq LaTeX-float (if (zerop (length float))
39 LaTeX-float
40 float))
41
42 (LaTeX-insert-environment "figure"
43 (concat LaTeX-optop LaTeX-float LaTeX-optcl))
44 (LaTeX-insert-environment "center")
45 (if psfrag
46 (progn
47 (LaTeX-insert-environment "psfrags")
48 (newline-and-indent)
49 ))
50 (if (or (zerop (length label))
51 (and (string= "figure" environment)
52 (equal LaTeX-figure-label label))
53 )
54 ()
55 (newline-and-indent)
56 (insert TeX-esc "label" TeX-grop label TeX-grcl)
57 (end-of-line 0)
58 (LaTeX-indent-line))
59
60
61 (newline-and-indent)
62 (insert TeX-esc "leavevmode")
63 (newline-and-indent)
64 (insert TeX-esc "epsfbox" TeX-grop psfile TeX-grcl)
65 (if (zerop (length caption))
66 ()
67 (newline-and-indent)
68 (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
69 (newline)
70 (forward-line 4)
71 (newline)
72
73 ))
74
75 (defun TeX-arg-epsfsize (optional &optional prompt definition)
76 "Create a line that print epsf figures at a certain percentage"
77 (interactive)
78 (let ((scale (read-input "Scale (%): "))
79 )
80 (setq scalestr (if (zerop (length scale))
81 "75"
82 (format "%s" scale)
83 ))
84 (save-excursion
85 ; append #1#{scale#1}
86 (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
87 ; insert \def before \epsfsize
88 (beginning-of-line 1)
89 (newline)
90 (insert TeX-esc "def")
91 (forward-line -1)
92 (insert "% From now on print figures at " scale "% of original size")
93 )
94 (end-of-line)))
95
96 ;;; epsf.el ends here