summaryrefslogtreecommitdiff
path: root/elpa/auctex-13.1.3/style/psfig.el
diff options
context:
space:
mode:
authormattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
committermattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
commitbd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch)
tree95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/psfig.el
parentb07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff)
parentef160dea332af4b4fe5e2717b962936c67e5fe9e (diff)
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/psfig.el')
-rw-r--r--elpa/auctex-13.1.3/style/psfig.el83
1 files changed, 0 insertions, 83 deletions
diff --git a/elpa/auctex-13.1.3/style/psfig.el b/elpa/auctex-13.1.3/style/psfig.el
deleted file mode 100644
index 09b2ad2..0000000
--- a/elpa/auctex-13.1.3/style/psfig.el
+++ /dev/null
@@ -1,83 +0,0 @@
-;;; psfig.el - Support for the psfig style option. -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2013-2014, 2020 Free Software Foundation, Inc.
-
-;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
-;; Please direct comments to him.
-
-;;; Code:
-
-(require 'tex)
-(require 'latex)
-
-(TeX-add-style-hook
- "psfig"
- (lambda ()
- ;; probable some of the following symbols may be removed
- (TeX-add-symbols "protect" "figurepath" "fbox"
- "other" "letter" "other" "then" "Sine" "Cosine"
- "psdraft" "psfull" "psscalefirst" "psrotatefirst"
- "psnodraftbox" "psdraftbox" "pssilent" "psnoisy"
- "minmaxtest"
- '("psfig" TeX-arg-psfig)
- '("psfigurepath" t)
- )
- (LaTeX-add-environments
- '("psfigure" LaTeX-env-psfigure)))
- TeX-dialect)
-
-(defun TeX-arg-psfig (_optional)
- "Ask for file, width and length. Insert psfig macro"
- (let ((psfile (read-file-name "PS-file: " "" "" nil))
- (figwidth (TeX-read-string "Figure width: "))
- (figheight (TeX-read-string "Figure height: "))
- )
-
- (insert TeX-grop "figure=" psfile)
- (if (not (zerop (length figwidth)))
- (insert ",width=" figwidth))
- (if (not (zerop (length figheight)))
- (insert ",height=" figheight))
- (insert TeX-grcl)))
-
-
-(defun LaTeX-env-psfigure (_environment)
- "Create with \\label and \\caption and \\psfig commands."
- (let* ((float (TeX-read-string "Float to: " LaTeX-float))
- (caption (TeX-read-string "Caption: "))
- (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length)
- (TeX-read-string "(Optional) Short caption: ")))
- (label (TeX-read-string "Label: " LaTeX-figure-label))
- ; gf: ask if this should be centered
- (psfile (read-file-name "PS-file: " "" "" nil))
- (figwidth (TeX-read-string "Figure width: "))
- (figheight (TeX-read-string "Figure height: "))
- )
-
- (setq LaTeX-float (if (zerop (length float))
- LaTeX-float
- float))
-
- (LaTeX-insert-environment "figure"
- (concat LaTeX-optop LaTeX-float LaTeX-optcl))
-
- (insert TeX-esc "centerline" TeX-grop TeX-esc "psfig" TeX-grop
- "figure=" psfile)
- (if (not (zerop (length figwidth)))
- (insert ",width=" figwidth))
- (if (not (zerop (length figheight)))
- (insert ",height=" figheight))
- (insert TeX-grcl TeX-grcl)
- (if (zerop (length caption))
- ()
- (newline-and-indent)
- (insert (LaTeX-compose-caption-macro caption short-caption)))
- (if (or (zerop (length label))
- (equal LaTeX-figure-label label))
- ()
- (newline-and-indent)
- (insert TeX-esc "label" TeX-grop label TeX-grcl))
-
- (forward-line 2)))
-
-;;; psfig.el ends here