[AUCTeX-diffs] [elpa] externals/auctex f3df76a 09/27: Add support for algopseudocde style

[Tassilo Horn]

branch: externals/auctex
commit f3df76a5c9cbebdfb0a49b3c42aae81eebc7c0bf
Author: Uwe Brauer <oub@mat.ucm.es>
Commit: Tassilo Horn <tsdh@gnu.org>

    Add support for algopseudocde style
    
    * Makefile.in (STYLESRC): Add algopseudocde style
    
    * style/algpseudocode.el: Add support for the algopseudocde (algorithmcx)
        style
---
 Makefile.in            |  2 +-
 style/algpseudocode.el | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 74 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index d84d04a..1037fe0 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -172,7 +172,7 @@ STYLESRC = style/prosper.el \
           style/changelog.el style/ltugboat.el  style/beamerswitch.el \
           style/multitoc.el  style/fbox.el      style/xkcdcolors.el \
           style/ltxguide.el  style/revtex4-2.el style/overpic.el \
-          style/tex-live.el  style/algorithm.el
+          style/tex-live.el  style/algorithm.el style/algpseudocode.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/algpseudocode.el b/style/algpseudocode.el
new file mode 100644
index 0000000..eaae318
--- /dev/null
+++ b/style/algpseudocode.el
@@ -0,0 +1,73 @@
+;;; algpseudocode.el --- AUCTeX style for the (LaTeX) algpseudocode package
+
+;; Copyright (C) 2020 Free Software Foundation, Inc.
+
+;; Author: Uwe Brauer <oub@mat.ucm.es>
+;; Created: 2020-01-26
+;; 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 the algpseudocode package.
+
+;;; Code:
+
+(defvar LaTeX-algpseudocode-package-options
+  '("compatible" "nocompatible")
+  "Package options for the algpseudocode package.")
+
+
+(TeX-add-style-hook
+ "algpseudocode"
+ (lambda ()
+   (TeX-add-symbols
+    '("algref" 2)
+    '("algstore" 1)
+    '("algrestore" 1)
+    '("algstore*" 1)
+    '("algrestore*" 1)
+    '("Procedure" 2)
+    '("Comment" 1)
+    '("State" 0)
+    '("While" 0)
+    '("EndWhile" 0)
+    '("EndProcedure" 0)
+    '("Repeat" 0)
+    '("Until" 0)
+    '("For" 1)
+    '("ForAll" 1)
+    '("EndFor" 0)
+    '("If" 1)
+    '("ElsIf" 1)
+    '("Else" 0)
+    '("EndIf" 0)
+    '("Function" 2)
+    '("EndFunction" 0)
+    '("Loop" 0)
+    '("EndLoop" 0)
+    '("Require" 0)
+    '("Ensure" 0)
+    '("State" 0)
+    '("Statex" 0)
+    '("Call" 0))
+   (LaTeX-add-environments
+    '("algorithmic" [ "Number" ]))
+   LaTeX-dialect))
+
+;;; algpseudocode.el ends here