diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/ltugboat.el')
| -rw-r--r-- | elpa/auctex-13.1.3/style/ltugboat.el | 295 |
1 files changed, 295 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/ltugboat.el b/elpa/auctex-13.1.3/style/ltugboat.el new file mode 100644 index 0000000..7511e52 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltugboat.el @@ -0,0 +1,295 @@ +;;; ltugboat.el --- AUCTeX style for `ltugboat.cls' (v2.22) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-05-11 +;; 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 `ltugboat.cls' (v2.22) from 2019/11/09. +;; `ltugboat.cls' is part of TeXLive. + +;;; Code: + +(require 'crm) +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-env-ltugboat-verbatim (environment) + "Insert verbatim environment with an optional argument." + (let* ((crm-separator (regexp-quote TeX-esc)) + (opts (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "command(s)") + '("\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" + "\\Huge" "\\makevmeta" "\\ruled") + nil nil TeX-esc) + TeX-esc))) + (LaTeX-insert-environment environment + (when (and opts + (not (string= opts ""))) + (concat LaTeX-optop opts LaTeX-optcl))))) + +(TeX-add-style-hook + "ltugboat" + (lambda () + + ;; Run the style hook for mflogo in order to define the macros \MF + ;; and \MP: + (TeX-run-style-hooks "mflogo") + + ;; Preliminaries: ltugboat.cls suppresses \part & \subparagraph + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "section" "subsection" "subsubsection" "paragraph" + "figure" "table") + + ;; 6 Divisions of the paper + (TeX-add-symbols + '("nameref" TeX-arg-ref)) + + (setq TeX-complete-list + (append + '(("\\\\nameref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")) + TeX-complete-list)) + + ;; 6.1 Abstracts + (LaTeX-add-environments '("abstract") + '("longabstract")) + + ;; 6.2 Appendices: Cater for appendix environment and don't indent + ;; the content + (LaTeX-add-environments '("appendix")) + + (unless (string-match-p "appendix" LaTeX-document-regexp) + (set (make-local-variable 'LaTeX-document-regexp) + (concat LaTeX-document-regexp "\\|" "appendix"))) + + (TeX-add-symbols + ;; 7 Titles, addresses and so on + '("shortTitle" "Short title") + '("shortAuthor" LaTeX-arg-author) + '("address" "Address") + '("netaddress" "Email address") + '("personalURL" "Web page") + '("ORCID" "Digital identifier") + + ;; 7.1 Compilation articles + '("contributor" "Contributor") + '("makesignature" 0)) + + ;; 8 Verbatim text + (LaTeX-add-environments + '("verbatim" LaTeX-env-ltugboat-verbatim)) + + ;; 10.1 Acronyms and logos + (TeX-add-symbols + '("acro" "Acronym") + "AMS" + "AmS" + "AmSLaTeX" + "AmSTeX" + "ANSI" + "API" + "ASCII" + "aw" + "AW" + "BibLaTeX" + "BibTeX" + "BSD" + "CandT" + "ConTeXt" + "CMkIV" + "Cplusplus" + "CPU" + "CSczabbr" + "CSS" + "CSTUG" + "CSV" + "CTAN" + "DTD" + "DTK" + "DVD" + "DVI" + "DVIPDFMx" + "DVItoVDU" + "ECMS" + "EPS" + "eTeX" + "ExTeX" + "FAQ" + "FTP" + "Ghostscript" + "GNU" + "GUI" + "Hawaii" + "HTML" + "HTTP" + "iOS" + "IDE" + "IEEE" + "ISBN" + "ISO" + "ISSN" + "JPEG" + "JTeX" + "JoT" + "KOMAScript" + "LAMSTeX" + "LuaHBTeX" + "LuaHBLaTeX" + "LuaLaTeX" + "LuaTeX" + "LyX" + "macOS" + "MacOSX" + "MathML" + "mf" + "MFB" + "MkIV" + "mp" + "NTG" + "NTS" + "OMEGA" + "OCP" + "OOXML" + "OTF" + "OTP" + "mtex" + "Pas" + "pcMF" + "PCteX" + "pcTeX" + "pdflatex" + "pdftex" + "PDF" + "PGF" + "PHP" + "PiCTeX" + "plain" + "PNG" + "POBox" + "PS" + "PSTricks" + "RTF" + "SC" + "SGML" + "SliTeX" + "SQL" + "stTeX" + "STIX" + "SVG" + "TANGLE" + "TB" + "TIFF" + "TP" + "TeXhax" + "TeXMaG" + "TeXtures" + "Textures" + "TeXworks" + "TeXXeT" + "TFM" + "Thanh" + "TikZ" + "ttn" + "TTN" + "TUB" + "TUG" + "tug" + "UG" + "UNIX" + "VAX" + "VnTeX" + "VorTeX" + "XML" + "WEB" + "WEAVE" + "WYSIWYG" + "XeTeX" + "XeLaTeX" + "XHTML" + "XSL" + "XSLFO" + "XSLT" + + ;; 10.2 Other special typesetting + "Dash" + '("cs" (TeX-arg-eval let ((macro (completing-read + (TeX-argument-prompt nil nil + "Command") + (TeX-symbol-list)))) + (format "%s" macro))) + '("env" (TeX-arg-eval let ((env (completing-read + (TeX-argument-prompt nil nil + "Environment") + (LaTeX-environment-list)))) + (format "%s" env))) + '("meta" "Text") + '("tubbraced" "Text") + '("nth" "Number") + + ;; 12 Bibliography + '("SetBibJustification" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Justification") + '("\\raggedright" "\\sloppy")))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("shortTitle" "{") + ("shortAuthor" "{") + ("netaddress" "{") + ("personalURL" "{") + ("ORCID" "{") + ("contributor" "{") + ("acro" "{") + ("cs" "{") + ("env" "{") + ("meta" "{") + ("tubbraced" "{") + ("nth" "{")) + 'textual) + (font-latex-add-keywords '(("makesignature" "") + ("SetBibJustification" "{")) + 'function) + (font-latex-add-keywords '(("nameref" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-ltugboat-class-options + '("draft" "final" "preprint" + "extralabel" "harvardcite" "noextralabel" "nonumber" "numbersec" + "onecolumn" "rawcite" "runningfull" "runningminimal" "runningoff" + "a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "titlepage" "notitlepage" "twocolumn" "leqno" "fleqn" "openbib") + "Package options for the ltugboat class.") + +;;; ltugboat.el ends here |