diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/hologo.el')
| -rw-r--r-- | elpa/auctex-13.1.3/style/hologo.el | 237 |
1 files changed, 0 insertions, 237 deletions
diff --git a/elpa/auctex-13.1.3/style/hologo.el b/elpa/auctex-13.1.3/style/hologo.el deleted file mode 100644 index 25f8105..0000000 --- a/elpa/auctex-13.1.3/style/hologo.el +++ /dev/null @@ -1,237 +0,0 @@ -;;; hologo.el --- AUCTeX style for `hologo.sty' (v1.10) -*- lexical-binding: t; -*- - -;; Copyright (C) 2015--2021 Free Software Foundation, Inc. - -;; Author: Arash Esbati <arash@gnu.org> -;; Maintainer: auctex-devel@gnu.org -;; Created: 2015-10-31 -;; 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 `hologo.sty' (v1.10) from 2012/04/26. -;; `hologo.sty' is part of TeXLive. - -;;; Code: - -(require 'tex) - -;; Silence the compiler: -(declare-function font-latex-add-keywords - "font-latex" - (keywords class)) - -(defvar LaTeX-hologo-logo-names - '("(La)TeX" - "AmSLaTeX" - "AmSTeX" - "biber" - "BibTeX" - "BibTeX8" - "ConTeXt" - "emTeX" - "eTeX" - "ExTeX" - "HanTheThanh" - "iniTeX" - "KOMAScript" - "La" - "LaTeX" - "LaTeX2e" - "LaTeX3" - "LaTeXe" - "LaTeXML" - "LaTeXTeX" - "LuaLaTeX" - "LuaTeX" - "LyX" - "METAFONT" - "MetaFun" - "METAPOST" - "MetaPost" - "MiKTeX" - "NTS" - "OzMF" - "OzMP" - "OzTeX" - "OzTtH" - "PCTeX" - "pdfTeX" - "pdfLaTeX" - "PiC" - "PiCTeX" - "plainTeX" - "SageTeX" - "SLiTeX" - "SliTeX" - "teTeX" - "TeX" - "TeX4ht" - "TTH" - "virTeX" - "VTeX" - "Xe" - "XeLaTeX" - "XeTeX") - "List of logos provided by \"hologo.sty\".") - -(defvar LaTeX-hologo-key-val-options-global - '(("break" ("true" "false")) - ("hyphenbreak" ("true" "false")) - ("spacebreak" ("true" "false")) - ("discretionarybreak" ("true" "false"))) - "Global key=value options for hologo macros.") - -(defvar LaTeX-hologo-key-val-options-local - '(("variant" ("sf" "sc" ; BibTeX - "lift" ; SliTeX - "narrow" "simple" ; SliTeX, ConTeXt - "space" "hyphen" "runtogether"))) ; plainTeX - "Local key=value options for hologo macros.") - -(defun LaTeX-hologo--arg-use-region-or-query-logo-name (optional) - (if (and (use-region-p) - (member (buffer-substring (region-beginning) (region-end)) - LaTeX-hologo-logo-names)) - (progn - (insert TeX-grop) - (goto-char (region-end)) - (insert TeX-grcl)) - (TeX-argument-insert - (completing-read "Logo name: " LaTeX-hologo-logo-names) - optional))) - -(TeX-add-style-hook - "hologo" - (lambda () - (TeX-add-symbols - - ;; Insert logo macros - '("hologo" LaTeX-hologo--arg-use-region-or-query-logo-name) - '("Hologo" LaTeX-hologo--arg-use-region-or-query-logo-name) - - ;; Setup macros - '("hologoSetup" (TeX-arg-key-val LaTeX-hologo-key-val-options-global)) - - '("hologoLogoSetup" - (TeX-arg-eval - (lambda () - (let* ((logo (completing-read "Logo name: " LaTeX-hologo-logo-names)) - (keyval (TeX-read-key-val - nil - (cond ((string= logo "BibTeX") - (append '(("variant" ("sf" "sc"))) - LaTeX-hologo-key-val-options-global)) - ((string= logo "ConTeXt") - (append '(("variant" ("narrow" "simple"))) - LaTeX-hologo-key-val-options-global)) - ((string= logo "plainTeX") - (append '(("variant" ("space" "hyphen" "runtogether"))) - LaTeX-hologo-key-val-options-global)) - ((or (string= logo "SLiTeX") - (string= logo "SliTeX")) - (append '(("variant" ("lift" "narrow" "lift"))) - LaTeX-hologo-key-val-options-global)) - (t - LaTeX-hologo-key-val-options-global))))) - (TeX-argument-insert logo nil) - (format "%s" keyval))))) - - '("hologoDriverSetup" (TeX-arg-eval completing-read - "Driver: " - '("pdftex" "luatex" - "dvipdfm" "dvipdfmx" - "dvips" "dvipsone" "xdvi" - "xetex" "vtex" "driverfallback"))) - - '("hologoFontSetup" - (TeX-arg-key-val (("general") ("bibsf") - ("rm") ("sc") ("sf") ("sy") ("logo")))) - - '("hologoLogoFontSetup" - (TeX-arg-eval - (lambda () - (let* ((logo (completing-read "Logo name: " - '("BibTeX" - "ExTeX" - "SliTeX" - "AmS" - "NTS" - "KOMAScript" - "METAFONT" - "METAPOST"))) - (keyval (TeX-read-key-val - nil - (cond ((string= logo "BibTeX") - '(("bibsf") ("sc"))) - ((string= logo "ExTeX") - '(("rm") ("sy"))) - ((string= logo "SliTeX") - '(("rm") ("sc"))) - ((or (string= logo "AmS") - (string= logo "NTS")) - '(("sy"))) - ((string= logo "KOMAScript") - '(("sf"))) - ((or (string= logo "METAFONT") - (string= logo "METAPOST")) - '(("logo"))) - (t - nil))))) - (TeX-argument-insert logo nil) - (format "%s" keyval))))) - - ;; Additional user macros - `("hologoVariant" - LaTeX-hologo--arg-use-region-or-query-logo-name - (TeX-arg-key-val (append ,LaTeX-hologo-key-val-options-local - ,LaTeX-hologo-key-val-options-global))) - - `("HologoVariant" - LaTeX-hologo--arg-use-region-or-query-logo-name - (TeX-arg-key-val (append ,LaTeX-hologo-key-val-options-local - ,LaTeX-hologo-key-val-options-global))) - - '("hologoList" 0) - - '("hologoEntry" "Logo name" "Variant" "Since")) - - ;; Fontification - (when (and (featurep 'font-latex) - (eq TeX-install-font-lock 'font-latex-setup)) - (font-latex-add-keywords '(("hologo" "{") - ("Hologo" "{")) - 'textual) - (font-latex-add-keywords '(("hologoSetup" "{") - ("hologoLogoSetup" "{{") - ("hologoDriverSetup" "{") - ("hologoFontSetup" "{") - ("hologoLogoFontSetup" "{{") - ("hologoVariant" "{{") - ("HologoVariant" "{{") - ("hologoList" "") - ("hologoEntry" "{{{")) - 'function))) - TeX-dialect) - -(defvar LaTeX-hologo-package-options nil - "Package options for the hologo package.") - -;;; hologo.el ends here |