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/gloss-italian.el | 71 +++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) create mode 100644 elpa/auctex-13.1.3/style/gloss-italian.el (limited to 'elpa/auctex-13.1.3/style/gloss-italian.el') diff --git a/elpa/auctex-13.1.3/style/gloss-italian.el b/elpa/auctex-13.1.3/style/gloss-italian.el new file mode 100644 index 0000000..c13f9f2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/gloss-italian.el @@ -0,0 +1,71 @@ +;;; gloss-italian.el --- Italian support for polyglossia package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020, 2022 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano +;; 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 is based on italian.el style file, adapted to polyglossia package. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function LaTeX-polyglossia-lang-option-member + "polyglossia" (language option)) + +(defvar TeX-language-it-hook nil + "Hook run for Italian texts.") + +(TeX-add-style-hook + "gloss-italian" + (lambda () + (TeX-add-symbols + '("textitalian" [TeX-arg-key-val LaTeX-polyglossia-italian-options-list] t)) + (LaTeX-add-environments + '("italian" + LaTeX-env-args [TeX-arg-key-val LaTeX-polyglossia-italian-options-list])) + + (when (or (LaTeX-polyglossia-lang-option-member "italian" "babelshorthands=true") + (LaTeX-polyglossia-lang-option-member "italian" "babelshorthands")) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("italian" "\"<" "\">" ,TeX-quote-after-quote))) + + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"<" "\">" french)))) + (run-hooks 'TeX-language-it-hook)) + TeX-dialect) + +(defvar LaTeX-polyglossia-italian-options-list + '(("babelshorthands" ("true" "false"))) + "Italian language options for the polyglossia package.") + +;;; gloss-italian.el ends here -- cgit v1.2.1