cgit.sxemacs.org Git - packages/blob - xemacs-packages/auctex/style/epsf.el

   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
   8  "epsf"
   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  LaTeX-dialect)
  19
  20 (defun TeX-arg-epsfsize (optional &optional prompt definition)
  21   "Create a line that print epsf figures at a certain percentage"
  22   (interactive)
  23   (let ((scale (read-string "Scale in percent (default 75): ")))
  24     (setq scale (if (zerop (length scale)) "75" scale))
  25     (save-excursion
  26       ; append #1#{scale#1}
  27       (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
  28       ; insert \def before \epsfsize
  29       (beginning-of-line 1)
  30       (newline)
  31       (insert TeX-esc "def")
  32       (forward-line -1)
  33       (insert "% From now on print figures at " scale "% of original size"))
  34     (end-of-line)))
  35
  36 ;;; epsf.el ends here