From becff06c71d277647eda4378203d03ab36e141eb Mon Sep 17 00:00:00 2001 From: mattkae Date: Tue, 17 May 2022 07:07:37 -0400 Subject: Evil mode and latex support --- elpa/auctex-13.1.3/style/changelog.el | 163 ++++++++++++++++++++++++++++++++++ 1 file changed, 163 insertions(+) create mode 100644 elpa/auctex-13.1.3/style/changelog.el (limited to 'elpa/auctex-13.1.3/style/changelog.el') diff --git a/elpa/auctex-13.1.3/style/changelog.el b/elpa/auctex-13.1.3/style/changelog.el new file mode 100644 index 0000000..a4ebb43 --- /dev/null +++ b/elpa/auctex-13.1.3/style/changelog.el @@ -0,0 +1,163 @@ +;;; changelog.el --- AUCTeX style for `changelog.sty' (v2.0.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-05-05 +;; 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 `changelog.sty' (v2.0.0). +;; `changelog.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar reftex-label-alist) + +(defvar LaTeX-changelog-env-key-val-options + '(("section" ("true" "false")) + ("title")) + "Key=value options for changelog environment. +The keys sectioncmd and label are added in the function +`LaTeX-env-changelog'.") + +(defvar LaTeX-changelog-version-env-key-val-options + '(("version") + ("v") + ("author") + ("date") + ("yanked" ("true" "false")) + ("simple" ("true" "false")) + ("short" ("true" "false"))) + "key=value options for version environment.") + +(defun LaTeX-env-changelog (environment) + "Insert ENVIRONMENT, ask for optional argument and insert a label." + (let* ((seccmds (mapcar #'car LaTeX-section-list)) + ;; Collect the key=vals acc. to environment & documentclass + (opts (TeX-read-key-val + t + (if (string= environment "changelog") + (append + `(("sectioncmd" + ,(if (< (LaTeX-largest-level) 2) + (append + (mapcar (lambda (cmd) (concat TeX-esc cmd)) + seccmds) + (mapcar (lambda (cmd) (concat TeX-esc cmd "*")) + seccmds)) + (append + (mapcar (lambda (cmd) (concat TeX-esc cmd)) + (remove "chapter" seccmds)) + (mapcar (lambda (cmd) (concat TeX-esc cmd "*")) + (remove "chapter" seccmds)))))) + LaTeX-changelog-env-key-val-options + LaTeX-changelog-version-env-key-val-options) + LaTeX-changelog-version-env-key-val-options))) + ;; Extract the chosen sectioning command + (sec (progn + (string-match "sectioncmd=\\\\\\([a-z]+\\)\\(\\*?\\)" opts) + (match-string-no-properties 1 opts))) + ;; Temp. re-bind `LaTeX-label-alist' and pick the label + ;; prefix from `LaTeX-section-label' + (LaTeX-label-alist + (when (and (string= environment "changelog") + (match-string 2 opts) + (not (string= (match-string 2 opts) "*"))) + `(,(cons environment + (cdr (assoc sec LaTeX-section-label)))))) + ;; Temp. re-bind `reftex-label-alist' as well and make + ;; `reftex-label' DTRT: + (reftex-label-alist + (when (and (boundp 'reftex-label-alist) + LaTeX-label-alist + (string= environment "changelog")) + `((,environment ?s ,(cdr (assoc sec LaTeX-section-label)) nil t))))) + (LaTeX-insert-environment + environment + (when (and opts (not (string= opts ""))) + (concat LaTeX-optop opts LaTeX-optcl))) + ;; Add a label into the opt. argument + (when (string= environment "changelog") + (LaTeX-env-label-as-keyval nil "sectioncmd" nil environment)) + ;; Add an \item in version environment + (when (string= environment "version") + (TeX-insert-macro "item") + (indent-according-to-mode)))) + +(TeX-add-style-hook + "changelog" + (lambda () + + (LaTeX-add-environments + '("changelog" LaTeX-env-changelog) + '("version" LaTeX-env-changelog)) + + (TeX-add-symbols + '("added" 0) + '("changed" 0) + '("deprecated" 0) + '("removed" 0) + '("fixed" 0) + '("security" 0) + `("shortversion" (TeX-arg-key-val + ,(append + '(("changes")) + LaTeX-changelog-version-env-key-val-options)))) + + ;; Tell RefTeX that the optional arg of changelog env. can contain a label: + (when (and (boundp 'reftex-label-regexps) + (fboundp 'reftex-compile-variables) + (not (string-match "\\bchangelog\\b" + (mapconcat #'identity + reftex-label-regexps + "|")))) + (add-to-list (make-local-variable 'reftex-label-regexps) + (concat "\\\\begin{changelog}" + (LaTeX-extract-key-value-label nil 1)) + t) + (reftex-compile-variables)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("added" "") + ("changed" "") + ("deprecated" "") + ("removed" "") + ("fixed" "") + ("security" "") + ("shortversion" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-changelog-package-options nil + "Package options for the changelog package.") + +;;; changelog.el ends here -- cgit v1.2.1