diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/acronym.el')
| -rw-r--r-- | elpa/auctex-13.1.3/style/acronym.el | 185 |
1 files changed, 185 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/acronym.el b/elpa/auctex-13.1.3/style/acronym.el new file mode 100644 index 0000000..a99fa85 --- /dev/null +++ b/elpa/auctex-13.1.3/style/acronym.el @@ -0,0 +1,185 @@ +;;; acronym.el --- AUCTeX style for `acronym.sty' version 1.38. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2015, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `acronym.sty' version 1.38. + +;;; Code: + +(require 'tex) ;Indispensable when compiling the call to `TeX-auto-add-type'. +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-auto-add-type "acronym" "LaTeX") + +;; Self Parsing -- see (info "(auctex)Hacking the Parser"). +(defvar LaTeX-acronym-regexp + (concat "\\\\\\(?:acro\\|newacro\\|acrodef\\)" "{\\([^\n\r%\\{}]+\\)}") + "Matches acronyms by `acronym' package.") + +(defvar LaTeX-auto-acronym nil + "Temporary for parsing acronym by `acronym' package.") + +(defun LaTeX-acronym-prepare () + "Clear `LaTex-auto-acronym' before use." + (setq LaTeX-auto-acronym nil)) + +(defun LaTeX-acronym-cleanup () + "Move acronyms from `LaTeX-auto-acronym' to `LaTeX-acronym-list'." + (mapc (lambda (acronym) + (add-to-list 'LaTeX-acronym-list (list acronym))) + LaTeX-auto-acronym)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-acronym-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-acronym-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defvar LaTeX-acronym-acronym-history nil + "History of acronyms in acronym.") + +;; The former `acronym' stands for package name, the latter stands for the +;; argument of the macro calling this function. +(defun LaTeX-arg-acronym-acronym (optional &optional prompt definition) + "Prompt for an acronym completing with known acronyms. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string. If DEFINITION is non-nil, add the chosen acronym to the +list of defined acronyms." + (let ((acronym (completing-read (TeX-argument-prompt optional prompt "Acronym") + (LaTeX-acronym-list) nil nil nil + 'LaTeX-acronym-acronym-history))) + (if (and definition (not (string-equal "" acronym))) + (LaTeX-add-acronyms acronym)) + (TeX-argument-insert acronym optional optional))) + +(defun LaTeX-arg-define-acronym-acronym (optional &optional prompt) + "Prompt for an acronym completing with known acronyms. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string." + (LaTeX-arg-acronym-acronym optional prompt t)) + +(TeX-add-style-hook + "acronym" + (lambda () + (TeX-auto-add-regexp `(,LaTeX-acronym-regexp 1 LaTeX-auto-acronym)) + (LaTeX-add-environments + '("acronym" LaTeX-env-args + [TeX-arg-string "Longest acronym"])) + (TeX-add-symbols + ;; Acronyms in the Text + '("ac" LaTeX-arg-acronym-acronym) + '("acresetall" 0) + '("acf" LaTeX-arg-acronym-acronym) + '("acs" LaTeX-arg-acronym-acronym) + '("acl" LaTeX-arg-acronym-acronym) + '("acp" LaTeX-arg-acronym-acronym) + '("acfp" LaTeX-arg-acronym-acronym) + '("acsp" LaTeX-arg-acronym-acronym) + '("aclp" LaTeX-arg-acronym-acronym) + '("acfi" LaTeX-arg-acronym-acronym) + '("acused" LaTeX-arg-acronym-acronym) + '("acsu" LaTeX-arg-acronym-acronym) + '("aclu" LaTeX-arg-acronym-acronym) + '("iac" LaTeX-arg-acronym-acronym) + '("Iac" LaTeX-arg-acronym-acronym) + '("ac*" LaTeX-arg-acronym-acronym) + '("acf*" LaTeX-arg-acronym-acronym) + '("acs*" LaTeX-arg-acronym-acronym) + '("acl*" LaTeX-arg-acronym-acronym) + '("acp*" LaTeX-arg-acronym-acronym) + '("acfp*" LaTeX-arg-acronym-acronym) + '("acsp*" LaTeX-arg-acronym-acronym) + '("aclp*" LaTeX-arg-acronym-acronym) + '("acfi*" LaTeX-arg-acronym-acronym) + '("acsu*" LaTeX-arg-acronym-acronym) + '("aclu*" LaTeX-arg-acronym-acronym) + '("iac*" LaTeX-arg-acronym-acronym) + '("Iac*" LaTeX-arg-acronym-acronym) + ;; Customization + '("acsfont" 1) + '("acffont" 1) + '("acfsfont" 1) + ;; Defining Acronyms + '("acro" LaTeX-arg-define-acronym-acronym [ "Short name" ] "Full name") + '("acroextra" "Additional info") + '("newacro" LaTeX-arg-define-acronym-acronym [ "Short name" ] "Full name") + '("acrodef" LaTeX-arg-define-acronym-acronym [ "Short name" ] "Full name") + ;; Non standard indefinite articles + '("acroindefinite" LaTeX-arg-acronym-acronym + "Short indefinite article" "Long indefinite article") + '("acrodefindefinite" LaTeX-arg-acronym-acronym + "Short indefinite article" "Long indefinite article") + '("newacroindefinite" LaTeX-arg-acronym-acronym + "Short indefinite article" "Long indefinite article") + ;; Non standard and foreign plural forms + '("acroplural" LaTeX-arg-acronym-acronym [ "Short plural" ] "Long plural") + '("acrodefplural" LaTeX-arg-acronym-acronym [ "Short plural" ] "Long plural") + '("newacroplural" LaTeX-arg-acronym-acronym [ "Short plural" ] "Long plural")) + (TeX-run-style-hooks + "relsize" + "xstring" + "suffix") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("ac" "*{") + ("acf" "*{") + ("acs" "*{") + ("acl" "*{") + ("acp" "*{") + ("acfp" "*{") + ("acsp" "*{") + ("aclp" "*{") + ("acfi" "*{") + ("acused" "{") + ("acsu" "*{") + ("aclu" "*{") + ("iac" "*{") + ("Iac" "*{") + ("acro" "{[{") + ("acroextra" "{") + ("newacro" "{[{") + ("acrodef" "{[{") + ("acroindefinite" "{{{") + ("acrodefindefinite" "{{{") + ("newacroindefinite" "{{{") + ("acroplural" "{[{") + ("acrodefplural" "{[{") + ("newacroplural" "{[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-acronym-package-options + '("footnote" "nohyperlinks" "printonlyused" "withpage" "smaller" "dua" "nolist") + "Package options for the acronym package.") + +;; acronym.el ends here |