1 files changed, 32 insertions, 28 deletions

diff --git a/arabluatex.el b/arabluatex.el
index 34d6466..5007675 100644
--- a/arabluatex.el
+++ b/arabluatex.el
@@ -1,8 +1,23 @@
 ;;; arabluatex.el --- AUCTeX style for `arabluatex.sty'
 ;; This file is part of the `arabluatex' package
 
-;; ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-;; Copyright (C) 2016--2020  Robert Alessi
+;; arabluatex -- ArabTeX for LuaLaTeX
+;; Copyright (C) 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023
+;; Robert Alessi <alessi@robertalessi.net>
+
+;; Permission to use, copy, modify, and distribute this software for
+;; any purpose with or without fee is hereby granted, provided that
+;; the above copyright notice and this permission notice appear in all
+;; copies.
+
+;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
+;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
+;; OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
+;; NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
+;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 ;; The author would like to express his grateful thanks to Arash
 ;; Esbati <arash@gnu.org> whose comments helped to improve this file
@@ -11,20 +26,6 @@
 ;; Please send error reports and suggestions for improvements to Robert
 ;; Alessi <alessi@robertalessi.net>
 
-;; This program 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 of the License, or
-;; (at your option) any later version.
-
-;; This program 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 this program.  If not, see
-;; <http://www.gnu.org/licenses/>.
-
 (defvar LaTeX-arabluatex-preamble-options
   '(("voc")
     ("fullvoc")
@@ -38,10 +39,10 @@
   (TeX-read-key-val t LaTeX-arabluatex-preamble-options))
 
 (defvar LaTeX-arabluatex-mode-options
-  '("voc"
-    "fullvoc"
-    "novoc"
-    "trans")
+  '(("voc")
+    ("fullvoc")
+    ("novoc")
+    ("trans"))
   "List of local options for arabluatex macros.")
 
 (defvar LaTeX-arabluatex-key-val-options
@@ -66,7 +67,8 @@
 
 (defvar LaTeX-arabluatex-arind-options
   '(("index")
-    ("root")
+    ("root"
+     ("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15"))
     ("form")
     ("pipe"))
   "Option for arind command.")
@@ -100,30 +102,32 @@
     "prname"
     "txarb"
     '("arb" [ TeX-arg-eval completing-read
-                           (TeX-argument-prompt optional nil "Mode")
+                           (TeX-argument-prompt nil nil "Mode")
                            LaTeX-arabluatex-mode-options ]
       t)
     '("arbcolor" [ TeX-arg-eval completing-read
-                                (TeX-argument-prompt optional nil "Color")
+                                (TeX-argument-prompt nil nil "Color")
                                 (LaTeX-xcolor-definecolor-list) ]
       t)
     '("arbmark" [ TeX-arg-eval completing-read
-                               (TeX-argument-prompt optional nil "Option")
+                               (TeX-argument-prompt nil nil "Option")
                                LaTeX-arabluatex-arbmark-options ]
       t)
     '("ArbOutFile" [ TeX-arg-eval completing-read
-                                  (TeX-argument-prompt optional nil "Option")
+                                  (TeX-argument-prompt nil nil "Option")
                                   LaTeX-arabluatex-outfile-options ]
       t)
     '("ArbOutFile*" [ TeX-arg-eval completing-read
-                                   (TeX-argument-prompt optional nil "Option")
+                                   (TeX-argument-prompt nil nil "Option")
                                    LaTeX-arabluatex-outfile-options ]
       t)
     '("arind" [ TeX-arg-key-val LaTeX-arabluatex-arind-options ]
       TeX-arg-index)
     "SetHemistichDelim"
     '("bayt" 2)
+    '("bayt+" 2)
     "abjad"
+    '("SetArbNumbers" "Indian or Arabic")
     "arbnull"
     "abraces"
     "LR"
@@ -144,7 +148,7 @@
    (LaTeX-add-environments
     '("arab" LaTeX-env-args
       [ TeX-arg-eval completing-read
-                     (TeX-argument-prompt optional nil "Mode")
+                     (TeX-argument-prompt nil nil "Mode")
                      LaTeX-arabluatex-mode-options ]
       )
     "txarab"
@@ -168,7 +172,7 @@
                               'function))
    ;; RefTeX support
    (when (fboundp 'reftex-add-index-macros)
-     (reftex-add-index-macros '(("\\arind[]{*}" 1 ?a "" nil t))))
+     (reftex-add-index-macros '(("\\arind[]{*}" "" ?a "" nil t))))
    )
  LaTeX-dialect)