[AUCTeX-diffs] [elpa] externals/auctex 2af3c1bcbd 33/60: Add new style/ifthen.el

[Tassilo Horn]

branch: externals/auctex
commit 2af3c1bcbdc78701072c67621331c32a47a4b964
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Add new style/ifthen.el
    
    * Makefile.in (STYLESRC): Add new style.
    
    * style/ifthen.el: New file.
---
 Makefile.in     |  3 ++-
 style/ifthen.el | 82 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 84 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index 4501629b92..ed79ddf294 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -178,7 +178,8 @@ STYLESRC = style/prosper.el \
           style/xr.el        style/cancel.el    style/unicodefonttable.el \
           style/cuted.el     style/floatpag.el  style/flushend.el \
           style/midfloat.el  style/stabular.el  style/stfloats.el \
-          style/rotating.el  style/sidecap.el   style/l3doc.el
+          style/rotating.el  style/sidecap.el   style/l3doc.el \
+          style/ifthen.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/ifthen.el b/style/ifthen.el
new file mode 100644
index 0000000000..2f426029ef
--- /dev/null
+++ b/style/ifthen.el
@@ -0,0 +1,82 @@
+;;; ifthen.el --- AUCTeX style for `ifthen.sty'  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2022-03-16
+;; 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 `ifthen.sty' v1.1c, dated 2020/11/24.
+
+;;; Code:
+
+(require 'tex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+
+(defun LaTeX-arg-ifthen-test (optional &optional prompt)
+  "Query and insert skeleton for a test in ifthen macros."
+  (TeX-argument-insert
+   (completing-read
+    (TeX-argument-prompt optional prompt "Test")
+    '("<" "=" ">"
+      "\\isodd{}"
+      "\\isundefined{}"
+      "\\equal{}{}"
+      "\\lengthtest{<}"
+      "\\lengthtest{=}"
+      "\\lengthtest{>}"
+      "\\boolean{}"))
+   optional))
+
+(TeX-add-style-hook
+ "ifthen"
+ (lambda ()
+   (TeX-add-symbols
+    '("ifthenelse" LaTeX-arg-ifthen-test t nil)
+    '("whiledo"    LaTeX-arg-ifthen-test t)
+    "AND"
+    "OR"
+    "NOT"
+    '("newboolean" "Name")
+    '("provideboolean" "Name")
+    '("setboolean" "Name" (TeX-arg-eval completing-read
+                                        (TeX-argument-prompt nil nil "Value")
+                                        '("true" "false"))))
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     ;; Only fontify macros which will be used top-level:
+     (font-latex-add-keywords '(("newboolean"     "{")
+                                ("provideboolean" "{"))
+                              'function)))
+ TeX-dialect)
+
+(defvar LaTeX-ifthen-package-options nil
+  "Package options for the ifthen package.")
+
+;;; ifthen.el ends here