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, 237 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/hologo.el b/elpa/auctex-13.1.3/style/hologo.el new file mode 100644 index 0000000..25f8105 --- /dev/null +++ b/elpa/auctex-13.1.3/style/hologo.el @@ -0,0 +1,237 @@ +;;; 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 |