summaryrefslogtreecommitdiff
path: root/elpa/auctex-13.1.3/style/color.el
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/auctex-13.1.3/style/color.el')
-rw-r--r--elpa/auctex-13.1.3/style/color.el317
1 files changed, 0 insertions, 317 deletions
diff --git a/elpa/auctex-13.1.3/style/color.el b/elpa/auctex-13.1.3/style/color.el
deleted file mode 100644
index a98b01b..0000000
--- a/elpa/auctex-13.1.3/style/color.el
+++ /dev/null
@@ -1,317 +0,0 @@
-;;; color.el --- AUCTeX style for `color.sty' (v1.3d) -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2015--2022 Free Software Foundation, Inc.
-
-;; Author: Arash Esbati <arash@gnu.org>
-;; Maintainer: auctex-devel@gnu.org
-;; Created: 2015-01-16
-;; Keywords: tex
-
-;; This file is part of AUCTeX.
-
-;; AUCTeX 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.
-
-;; AUCTeX 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 AUCTeX; 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 file adds support for `color.sty' (v1.3d) from 2022/01/06.
-;; `color.sty' is part of TeXLive.
-
-;; Many thanks to Tassilo Horn for his percetive comments on
-;; implementation of this style and testing.
-
-;;; Code:
-
-;; Needed for compiling `LaTeX-check-insert-macro-default-style':
-(require 'latex)
-
-;; Silence the compiler:
-(declare-function font-latex-add-keywords
- "font-latex"
- (keywords class))
-
-(defvar LaTeX-color-colour-models
- '("cmyk" "gray" "named" "rgb")
- "List of color models provided by `color.sty'.")
-
-(defvar LaTeX-color-dvipsnames-colors
- '("Apricot" "Aquamarine" "Bittersweet" "Black"
- "Blue" "BlueGreen" "BlueViolet" "BrickRed"
- "Brown" "BurntOrange" "CadetBlue" "CarnationPink"
- "Cerulean" "CornflowerBlue" "Cyan" "Dandelion"
- "DarkOrchid" "Emerald" "ForestGreen" "Fuchsia"
- "Goldenrod" "Gray" "Green" "GreenYellow"
- "JungleGreen" "Lavender" "LimeGreen" "Magenta"
- "Mahogany" "Maroon" "Melon" "MidnightBlue"
- "Mulberry" "NavyBlue" "OliveGreen" "Orange"
- "OrangeRed" "Orchid" "Peach" "Periwinkle"
- "PineGreen" "Plum" "ProcessBlue" "Purple"
- "RawSienna" "Red" "RedOrange" "RedViolet"
- "Rhodamine" "RoyalBlue" "RoyalPurple" "RubineRed"
- "Salmon" "SeaGreen" "Sepia" "SkyBlue"
- "SpringGreen" "Tan" "TealBlue" "Thistle"
- "Turquoise" "Violet" "VioletRed" "White"
- "WildStrawberry" "Yellow" "YellowGreen" "YellowOrange")
- "List of colors defined by package option `dvipsnames' from `color.sty'.")
-
-;; Needed for auto-parsing.
-(require 'tex)
-
-;; Plug \definecolor into the parser
-(TeX-auto-add-type "color-definecolor" "LaTeX")
-
-(defvar LaTeX-color-definecolor-regexp
- '("\\\\definecolor{\\([^}]+\\)}" 1 LaTeX-auto-color-definecolor)
- "Matches the argument of \\definecolor from color package.")
-
-(defun LaTeX-color-auto-prepare ()
- "Clear `LaTeX-auto-color-definecolor' before parsing."
- (setq LaTeX-auto-color-definecolor nil))
-
-(add-hook 'TeX-auto-prepare-hook #'LaTeX-color-auto-prepare t)
-(add-hook 'TeX-update-style-hook #'TeX-auto-parse t)
-
-(defun TeX-arg-color-definecolor (optional &optional prompt)
- "Insert arguments of `\\definecolor' from `color.sty'."
- ;; \definecolor{<name>}{<model>}{<color spec>}
- ;; Ask for <name>, add to our list and insert it
- (let ((colorname (TeX-read-string "Color name: ")))
- (LaTeX-add-color-definecolors colorname)
- (TeX-argument-insert colorname optional))
- ;; Ask and insert <model>
- (let ((model (completing-read
- (TeX-argument-prompt optional prompt "Color model")
- (if (not (or (LaTeX-provided-package-options-member "color" "dvips")
- (LaTeX-provided-package-options-member "color" "dvipsnames")))
- (remove "named" LaTeX-color-colour-models)
- LaTeX-color-colour-models))))
- (TeX-argument-insert model optional)
- ;; Depending on <model>, ask for <color spec> and insert it
- (cond (;; <cmyk> model
- (string-equal model "cmyk")
- (let ((cyan (TeX-read-string "Value Cyan (between 0,1): "))
- (magenta (TeX-read-string "Value Magenta (between 0,1): "))
- (yellow (TeX-read-string "Value Yellow (between 0,1): "))
- (black (TeX-read-string "Value Black (between 0,1): ")))
- (TeX-argument-insert
- (concat cyan "," magenta "," yellow "," black) optional)))
- ;; <rgb> model
- ((string-equal model "rgb")
- (let ((red (TeX-read-string "Value Red (between 0,1): "))
- (green (TeX-read-string "Value Green (between 0,1): "))
- (blue (TeX-read-string "Value Blue (between 0,1): ")))
- (TeX-argument-insert
- (concat red "," green "," blue) optional)))
- ;; <gray> model
- ((string-equal model "gray")
- (let ((grayness (TeX-read-string "Value Gray (between 0,1): ")))
- (TeX-argument-insert grayness optional)))
- ;; <named> model takes the dvipsnames
- ((string-equal model "named")
- (let ((color (completing-read "Named Color: "
- LaTeX-color-dvipsnames-colors)))
- (TeX-argument-insert color optional))))))
-
-(defun TeX-arg-color (optional &optional prompt)
- "Insert arguments of various color commands from `color.sty'."
- ;; \color{<name>} or \color[<model>]{<color spec>} First, ask for
- ;; <model>. This happens depending on the values of
- ;; `TeX-insert-macro-default-style' and if `current-prefix-arg'.
- ;; `named' is removed here from completion if package option is not
- ;; given.
- (let* ((TeX-last-optional-rejected nil)
- (model (LaTeX-check-insert-macro-default-style
- (completing-read
- (TeX-argument-prompt t prompt "Color model")
- (if (not (or (LaTeX-provided-package-options-member "color" "dvips")
- (LaTeX-provided-package-options-member "color" "dvipsnames")))
- (remove "named" LaTeX-color-colour-models)
- LaTeX-color-colour-models)))))
- ;; If <model> is non-nil because of 'mandatory-args-only and not
- ;; an empty string, then insert it
- (if (and model (not (string-equal model "")))
- (progn
- (insert (concat LaTeX-optop model LaTeX-optcl))
- (cond (;; <cmyk> model
- (string-equal model "cmyk")
- (let ((cyan (TeX-read-string "Value Cyan (between 0,1): "))
- (magenta (TeX-read-string "Value Magenta (between 0,1): "))
- (yellow (TeX-read-string "Value Yellow (between 0,1): "))
- (black (TeX-read-string "Value Black (between 0,1): ")))
- (TeX-argument-insert
- (concat cyan "," magenta "," yellow "," black) optional)))
- ;; <rgb> model
- ((string-equal model "rgb")
- (let ((red (TeX-read-string "Value Red (between 0,1): "))
- (green (TeX-read-string "Value Green (between 0,1): "))
- (blue (TeX-read-string "Value Blue (between 0,1): ")))
- (TeX-argument-insert
- (concat red "," green "," blue) optional)))
- ;; <gray> model
- ((string-equal model "gray")
- (let ((grayness (TeX-read-string "Value Gray (between 0,1): ")))
- (TeX-argument-insert grayness optional)))
- ;; <named> model; allowed are dvipsnames.
- ((string-equal model "named")
- (let ((color (completing-read "Named Color: "
- LaTeX-color-dvipsnames-colors)))
- (TeX-argument-insert color optional)))))
- ;; if empty, ask for <name> with completion
- (let ((color (completing-read
- (TeX-argument-prompt optional prompt "Color name")
- (LaTeX-color-definecolor-list))))
- (TeX-argument-insert color optional)))))
-
-(defun TeX-arg-color-fcolorbox (optional &optional prompt)
- "Insert arguments of `\\fcolorbox' from `color.sty'. "
- ;; \fcolorbox{<frame color name>}{<box color name>}{<text>} or
- ;; \fcolorbox[<model>]{<frame color spec>}{<box color spec>}{<text>}
- ;; First, ask for <model> depending on
- ;; `TeX-insert-macro-default-style' and `current-prefix-arg'.
- ;; Remove `named' if necessary.
- (let* ((TeX-last-optional-rejected nil)
- (model (LaTeX-check-insert-macro-default-style
- (completing-read
- (TeX-argument-prompt t prompt "Color model")
- (if (not (or (LaTeX-provided-package-options-member "color" "dvips")
- (LaTeX-provided-package-options-member "color" "dvipsnames")))
- (remove "named" LaTeX-color-colour-models)
- LaTeX-color-colour-models)))))
- ;; If <model> is non-nil because of 'mandatory-args-only and not
- ;; an empty string, then insert [<model>] and cater for 2
- ;; mandatory args.
- (if (and model (not (string-equal model "")))
- (progn
- (insert (concat LaTeX-optop model LaTeX-optcl))
- (cond (;; <cmyk> model
- (string-equal model "cmyk")
- (let ((cyan (TeX-read-string "Frame value Cyan (between 0,1): "))
- (magenta (TeX-read-string "Frame value Magenta (between 0,1): "))
- (yellow (TeX-read-string "Frame value Yellow (between 0,1): "))
- (black (TeX-read-string "Frame value Black (between 0,1): ")))
- (TeX-argument-insert
- (concat cyan "," magenta "," yellow "," black) optional))
- (let ((cyan (TeX-read-string "Box value Cyan (between 0,1): "))
- (magenta (TeX-read-string "Box value Magenta (between 0,1): "))
- (yellow (TeX-read-string "Box value Yellow (between 0,1): "))
- (black (TeX-read-string "Box value Black (between 0,1): ")))
- (TeX-argument-insert
- (concat cyan "," magenta "," yellow "," black) optional)))
- ;; <rgb> model
- ((string-equal model "rgb")
- (let ((red (TeX-read-string "Frame value Red (between 0,1): "))
- (green (TeX-read-string "Frame value Green (between 0,1): "))
- (blue (TeX-read-string "Frame value Blue (between 0,1): ")))
- (TeX-argument-insert
- (concat red "," green "," blue) optional))
- (let ((red (TeX-read-string "Box value Red (between 0,1): "))
- (green (TeX-read-string "Box value Green (between 0,1): "))
- (blue (TeX-read-string "box value Blue (between 0,1): ")))
- (TeX-argument-insert
- (concat red "," green "," blue) optional)))
- ;; <gray> model
- ((string-equal model "gray")
- (let ((grayness (TeX-read-string "Frame value Gray (between 0,1): ")))
- (TeX-argument-insert grayness optional))
- (let ((grayness (TeX-read-string "Box value Gray (between 0,1): ")))
- (TeX-argument-insert grayness optional)))
- ;; <named> model; allowed are dvipsnames.
- ((string-equal model "named")
- (let ((color (completing-read "Frame named Color: "
- LaTeX-color-dvipsnames-colors)))
- (TeX-argument-insert color optional))
- (let ((color (completing-read "Box named Color: "
- LaTeX-color-dvipsnames-colors)))
- (TeX-argument-insert color optional)))))
- ;; if empty, ask for {<frame color spce>}{<box color name>} with completion
- (let ((frame-color (completing-read
- (TeX-argument-prompt optional prompt "Frame color name")
- (LaTeX-color-definecolor-list)))
- (box-color (completing-read
- (TeX-argument-prompt optional prompt "Box color name")
- (LaTeX-color-definecolor-list))))
- (TeX-argument-insert frame-color optional)
- (TeX-argument-insert box-color optional)))))
-
-(TeX-add-style-hook
- "color"
- (lambda ()
- ;; Add color to the parser.
- (TeX-auto-add-regexp LaTeX-color-definecolor-regexp)
-
- ;; Add list of colors which are always available.
- (LaTeX-add-color-definecolors
- "black" "blue" "cyan" "green" "magenta" "red" "white" "yellow")
-
- ;; Add dvips colors in conjunction with `usenames'.
- (when (and (LaTeX-provided-package-options-member "color" "usenames")
- (or (LaTeX-provided-package-options-member "color" "dvips")
- (LaTeX-provided-package-options-member "color" "dvipsnames")))
- (apply #'LaTeX-add-color-definecolors LaTeX-color-dvipsnames-colors))
-
- (unless (member "xcolor" (TeX-style-list))
- (TeX-add-symbols
- ;; \definecolor{<name>}{<model>}{<color spec>}
- '("definecolor" TeX-arg-color-definecolor)
-
- ;; \color{<name>} or \color[<model>]{<color spec>}
- '("color" TeX-arg-color)
-
- ;; \textcolor{<name>}{<text>} or
- ;; \textcolor[<model>]{<color spec>}{<text>}
- '("textcolor" TeX-arg-color "Text")
-
- ;; \mathcolor{<name>}{<math>} or
- ;; \mathcolor[<model>]{<color spec>}{<math>}
- '("mathcolor" TeX-arg-color "Math")
-
- ;; \pagecolor{<name>} or
- ;; \pagecolor[<model>]{<color spec>}
- '("pagecolor" TeX-arg-color)
-
- ;; \nopagecolor
- '("nopagecolor" 0)
-
- ;; \colorbox{<name>}{<text>} or
- ;; \colorbox[<model>]{<color spec>}{<text>}
- '("colorbox" TeX-arg-color "Text")
-
- ;; \fcolorbox{<frame color name>}{<box color name>}{<text>} or
- ;; \fcolorbox[<model>]{<frame color spec>}{<box color spec>}{<text>}
- '("fcolorbox" TeX-arg-color-fcolorbox "Text"))
-
- ;; Fontification
- (when (and (featurep 'font-latex)
- (eq TeX-install-font-lock 'font-latex-setup))
- (font-latex-add-keywords '(("color" "[{")
- ("pagecolor" "[{"))
- 'type-declaration)
- (font-latex-add-keywords '(("textcolor" "[{{")
- ("colorbox" "[{{" )
- ("fcolorbox" "[{{{"))
- 'type-command)
- (font-latex-add-keywords '(("definecolor" "{{{"))
- 'function))))
- TeX-dialect)
-
-(defvar LaTeX-color-package-options
- '("debugshow" "dvipdf" "dvipdfm" "dvipdfmx" "dvips" "dvipsnames"
- "dvipsone" "dvisvgm" "dviwin" "dviwindo" "emtex" "luatex"
- "monochrome" "nodvipsnames" "nosetpagesize" "oztex" "pctex32"
- "pctexhp" "pctexps" "pctexwin" "pdftex" "setpagesize" "tcidvi"
- "textures" "truetex" "usenames" "vtex" "xdvi" "xetex")
- "Package options for the color package.")
-
-;;; color.el ends here
generated by cgit v1.2.1 (git 2.18.0) at 2024-09-20 07:44:48 +0000