diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/color.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/color.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/color.el | 317 |
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 |