diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/graphicx.el')
| -rw-r--r-- | elpa/auctex-13.1.3/style/graphicx.el | 332 |
1 files changed, 0 insertions, 332 deletions
diff --git a/elpa/auctex-13.1.3/style/graphicx.el b/elpa/auctex-13.1.3/style/graphicx.el deleted file mode 100644 index 0e1e220..0000000 --- a/elpa/auctex-13.1.3/style/graphicx.el +++ /dev/null @@ -1,332 +0,0 @@ -;;; graphicx.el --- AUCTeX style file for graphicx.sty -*- lexical-binding: t; -*- - -;; Copyright (C) 2000, 2004, 2005, 2014--2021 by Free Software Foundation, Inc. - -;; Author: Ryuichi Arafune <arafune@debian.org> -;; Created: 1999/3/20 -;; Keywords: tex - -;; This file is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 3, or (at your option) -;; any later version. - -;; This file is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: - -;; This package supports the includegraphics macro in graphicx style. - -;; Acknowledgements -;; Dr. Thomas Baumann <thomas.baumann@ch.tum.de> -;; David Kastrup <David.Kastrup@t-online.de> -;; Masayuki Ataka <masayuki.ataka@gmail.com> - -;;; Code: - -(require 'crm) -(require 'tex) -(require 'latex) - -;; Silence the compiler: -(declare-function font-latex-add-keywords - "font-latex" - (keywords class)) - -(defvar LaTeX-graphicx-key-val-options - '(("bb") - ("bbllx") - ("bblly") - ("bburx") - ("bbury") - ("natheight") - ("natwidth") - ("viewport") - ("trim") - ("hiresbb" ("true" "false")) - ("angle") - ("origin") - ("width" ("\\textwidth" "\\columnwidth" "\\linewidth")) - ("height" ("\\textheight")) - ("totalheight" ("\\textheight")) - ("keepaspectratio" ("true" "false")) - ("scale") - ("clip" ("true" "false")) - ("draft" ("true" "false")) - ("quiet") - ("interpolate" ("true" "false")) - ("alt")) - "Key=value options for graphicx macros.") - -(defvar LaTeX-includegraphics-dvips-extensions - '("eps" "mps" "EPS") - "List of extensions for image files supported by \"dvips\".") - -(defvar LaTeX-includegraphics-pdftex-extensions - '("png" "pdf" "jpe?g" "jbig2" "jb2" "mps" - "PNG" "PDF" "JPE?G" "JBIG2" "JB2") - "List of extensions for image files supported by \"pdftex\" and \"luatex\".") - -(defvar LaTeX-includegraphics-xetex-extensions - '("pdf" "eps" "mps" "ps" "png" "jpe?g" "jp2" "jpf" - "PDF" "EPS" "MPS" "PS" "PNG" "JPE?G" "JP2" "JPF" - "bmp" "pict" "psd" "mac" "tga" "gif" "tif" "tiff" - "BMP" "PICT" "PSD" "MAC" "TGA" "GIF" "TIF" "TIFF") - "List of extensions for image files supported by \"xetex\".") - -(defun LaTeX-arg-graphicx-includegraphics-key-val (optional) - "Insert key-val for optional argument of \\includegraphics macro. -If OPTIONAL is non-nil, insert argument in square brackets. -Temporarily remove \"space\" from `crm-local-completion-map' and -`minibuffer-local-completion-map' in order to be able to insert -spaces conveniently. - -If `TeX-engine' is set to symbol 'default (while -`TeX-PDF-from-DVI' is set to nil) or 'luatex and `TeX-PDF-mode' -is non-nil, add the keys \"page\" and \"pagebox\" to list of -key-val's." - (let ((crm-local-completion-map - (remove (assoc 32 crm-local-completion-map) - crm-local-completion-map)) - (minibuffer-local-completion-map - (remove (assoc 32 minibuffer-local-completion-map) - minibuffer-local-completion-map))) - (TeX-argument-insert - (TeX-read-key-val optional - (if (and (or (and (eq TeX-engine 'default) - (not (TeX-PDF-from-DVI))) - (eq TeX-engine 'luatex) - ;; dvipdfmx can handle page and - ;; pagebox options. - (string= (TeX-PDF-from-DVI) "Dvipdfmx")) - TeX-PDF-mode) - (append '(("page") - ("pagebox" ("mediabox" - "cropbox" - "bleedbox" - "trimbox" - "artbox"))) - LaTeX-graphicx-key-val-options) - LaTeX-graphicx-key-val-options)) - optional))) - -(defun LaTeX-includegraphics-extensions-list () - "Return appropriate extensions for input files to \\includegraphics. -Return value is a list of regexps." - (let ((temp (copy-sequence LaTeX-includegraphics-extensions))) - (cond (;; 'default TeX-engine: - (eq TeX-engine 'default) - (if ;; we want to produce a pdf - (if TeX-PDF-mode - ;; Return t if default compiler produces PDF, - ;; nil for "Dvips" or "Dvipdfmx" - (not (TeX-PDF-from-DVI)) - ;; t if pdftex is used in dvi-mode - TeX-DVI-via-PDFTeX) - ;; We're using pdflatex in pdf-mode - (TeX-delete-duplicate-strings - (append LaTeX-includegraphics-pdftex-extensions - temp)) - ;; We're generating a .dvi to process with dvips or dvipdfmx - (progn - ;; dvipdfmx can handle jpeg, pdf and png for image formats. - (unless (and TeX-PDF-mode - (string= (TeX-PDF-from-DVI) "Dvipdfmx")) - (dolist (x '("jpe?g" "pdf" "png")) - (setq temp (delete x temp)))) - (TeX-delete-duplicate-strings - (append LaTeX-includegraphics-dvips-extensions - temp))))) - ;; Running luatex in pdf or dvi-mode: - ((eq TeX-engine 'luatex) - (if TeX-PDF-mode - (TeX-delete-duplicate-strings - (append LaTeX-includegraphics-pdftex-extensions - temp)) - (progn - (dolist (x '("jpe?g" "pdf" "png")) - (setq temp (delete x temp))) - (TeX-delete-duplicate-strings - (append LaTeX-includegraphics-dvips-extensions - temp))))) - ;; Running xetex in any mode: - ((eq TeX-engine 'xetex) - (TeX-delete-duplicate-strings - (append LaTeX-includegraphics-xetex-extensions - temp))) - ;; For anything else - (t - (if (and TeX-PDF-mode - (string= (TeX-PDF-from-DVI) "Dvipdfmx")) - ;; dvipdfmx can handle the same image formats as dvips. - (TeX-delete-duplicate-strings - (append LaTeX-includegraphics-dvips-extensions - temp)) - temp))))) - -(defun LaTeX-includegraphics-extensions (&optional list) - "Return appropriate extensions for input files to \\includegraphics. -Return value is a single regexp. -Optional argument LIST if non-nil is used as list of regexps of -extensions to be matched." - (unless list - (setq list (LaTeX-includegraphics-extensions-list))) - (concat "\\." (mapconcat #'identity list "\\'\\|\\.") "\\'")) - -(defvar LaTeX-includegraphics-global-files nil - "List of the non-local graphic files to include in LaTeX documents. -Initialized once at the first time you prompt for an input file. -May be reset with `\\[universal-argument] \\[TeX-normal-mode]'.") - -;; Add the variable to `TeX-normal-mode-reset-list': -(add-to-list 'TeX-normal-mode-reset-list 'LaTeX-includegraphics-global-files) - -(defun LaTeX-includegraphics-read-file-TeX () - "Read image file for \\includegraphics. -Offers all graphic files found in the TeX search path. See -`LaTeX-includegraphics-read-file' for more." - (let ((LaTeX-includegraphics-extensions - (LaTeX-includegraphics-extensions-list))) - (unless LaTeX-includegraphics-global-files - (message "Searching for graphic files...") - (setq LaTeX-includegraphics-global-files - (TeX-search-files-by-type - 'graphics 'global t - LaTeX-includegraphics-strip-extension-flag)) - (message "Searching for graphic files...done")) - (completing-read - "Image file: " - (append - (TeX-search-files-by-type 'graphics 'local t - LaTeX-includegraphics-strip-extension-flag) - LaTeX-includegraphics-global-files) - nil nil nil))) - -(defun LaTeX-includegraphics-read-file-relative () - "Read image file for \\includegraphics. - -Lists all graphic files in the master directory and its -subdirectories and inserts the relative file name. See -`LaTeX-includegraphics-read-file' for more." - (file-relative-name - (read-file-name - "Image file: " nil nil nil nil - (lambda (fname) - (or (file-directory-p fname) - (string-match (LaTeX-includegraphics-extensions) fname)))) - (TeX-master-directory))) - -(defun LaTeX-arg-includegraphics (optional) - "Ask for mandantory argument for the \\includegraphics command." - (let ((image-file (funcall LaTeX-includegraphics-read-file))) - (TeX-argument-insert - (if LaTeX-includegraphics-strip-extension-flag - (replace-regexp-in-string (LaTeX-includegraphics-extensions) - "" - image-file) - image-file) - optional))) - -(TeX-add-style-hook - "graphicx" - (lambda () - (TeX-add-symbols - '("reflectbox" "Argument") - - '("resizebox" - (TeX-arg-eval completing-read - (TeX-argument-prompt nil nil "Width") - (append '("\\width" "!") - (mapcar - (lambda (x) (concat TeX-esc (car x))) - (LaTeX-length-list)))) - (TeX-arg-eval completing-read - (TeX-argument-prompt nil nil "Height") - (append '("\\height" "\\totalheight" "\\depth" "!") - (mapcar - (lambda (x) (concat TeX-esc (car x))) - (LaTeX-length-list)))) - "Argument") - - '("resizebox*" - (TeX-arg-eval completing-read - (TeX-argument-prompt nil nil "Width") - (append '("\\width" "!") - (mapcar - (lambda (x) (concat TeX-esc (car x))) - (LaTeX-length-list)))) - (TeX-arg-eval completing-read - (TeX-argument-prompt nil nil "Height") - (append '("\\height" "\\totalheight" "\\depth" "!") - (mapcar - (lambda (x) (concat TeX-esc (car x))) - (LaTeX-length-list)))) - "Argument") - - '("rotatebox" (TeX-arg-conditional (member "graphics" (TeX-style-list)) - () - ([ TeX-arg-key-val (("x") ("y") ("origin") ("units")) ])) - "Angle" "Argument") - - '("scalebox" "Horizontal scale" [ "Vertical scale" ] "Argument") - - '("includegraphics" (TeX-arg-conditional (member "graphics" (TeX-style-list)) - (["llx,lly"] ["urx,ury"]) - ([ LaTeX-arg-graphicx-includegraphics-key-val ])) - LaTeX-arg-includegraphics) - - '("includegraphics*" (TeX-arg-conditional (member "graphics" (TeX-style-list)) - (["llx,lly"] ["urx,ury"]) - ([ LaTeX-arg-graphicx-includegraphics-key-val ])) - LaTeX-arg-includegraphics) - - '("graphicspath" t) - - '("DeclareGraphicsExtensions" t) - - '("DeclareGraphicsRule" 4)) - - ;; Fontification - (when (and (featurep 'font-latex) - (eq TeX-install-font-lock 'font-latex-setup)) - (font-latex-add-keywords '(("reflectbox" "{") - ("resizebox" "*{{{") - ("rotatebox" "[{{") - ("scalebox" "{[{")) - 'textual) - (font-latex-add-keywords '(("includegraphics" "*[[{")) - 'reference) - (font-latex-add-keywords '(("graphicspath" "{") - ("DeclareGraphicsExtensions" "{") - ("DeclareGraphicsRule" "{{{{")) - 'function)) - - ;; Option management - (if (and (LaTeX-provided-package-options-member "graphicx" "dvipdfmx") - (not (eq TeX-engine 'xetex))) - (setq TeX-PDF-from-DVI "Dvipdfmx"))) - TeX-dialect) - -(defvar LaTeX-graphicx-package-options - '("draft" "final" "debugshow" - "hiderotate" "hidescale" "hiresbb" - "setpagesize" "nosetpagesize" "demo" - "dvips" "xdvi" - "dvipdf" "dvipdfm" "dvipdfmx" - "xetex" "pdftex" "luatex" - "dvisvgm" "dvipsone" "dviwindo" - "emtex" "dviwin" "oztex" - "textures" "pctexps" "pctexwin" - "pctexhp" "pctex32" "truetex" - "tcidvi" "vtex") - "Package options for the graphicx package.") - -;;; graphicx.el ends here |