From b2f9aeb0044c47fc03364029cd093718d6eaf9be Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Tue, 24 Jan 2017 09:40:30 +0100 Subject: added 'arabluatex.el', an AUCTeX style file for 'arabluatex.sty' --- arabluatex.el | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100644 arabluatex.el (limited to 'arabluatex.el') diff --git a/arabluatex.el b/arabluatex.el new file mode 100644 index 0000000..e06c685 --- /dev/null +++ b/arabluatex.el @@ -0,0 +1,89 @@ +;;; arabluatex.el --- AUCTeX style for `arabluatex.sty' +;; This file is part of the `arabluatex' package + +;; ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX +;; Copyright (C) 2016--2017 Robert Alessi + +;; Please send error reports and suggestions for improvements to Robert +;; Alessi + +;; 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 +;; . + +(defvar LaTeX-arabluatex-package-options + '("voc" "fullvoc" "novoc" "trans") + "Package options for the arabluatex package") + +(defvar LaTeX-arabluatex-mode-options + '(;; + ("voc") + ("fullvoc") + ("novoc") + ("trans") + ) + "Global or local options") + +(defvar LaTeX-arabluatex-key-val-options + '(;; + ("mode" ("voc" "fullvoc" "novoc" "trans")) + ("width") + ("gutter") + ("metre") + ("delim" ("true" "false")) + ("utf" ("true" "false"))) + "Key=value options for arabverse environment.") + +(TeX-add-style-hook + "arabluatex" + (lambda () + (TeX-add-symbols + "aemph" + "SetInputScheme" + '("SetArbEasy" 0) + '("SetArbDflt" 0) + '("SetArbEasy*" 0) + '("SetArbDflt*" 0) + "SetTranslitFont" + "SetTranslitStyle" + "SetTranslitConvention" + "arbup" + '("ArbUpDflt" 0) + '("NoArbUp" 0) + '("SetArbUp" 0) + "cap" + "txarb" + '("arb" [ (TeX-arg-eval completing-read "mode: " + LaTeX-arabluatex-mode-options) ] t) + "SetHemistichDelim" + '("bayt" 2) + "abjad" + "arbnull" + "abraces" + "LRmarginpar" + "LRfootnote" + "RLfootnote" + "FixArbFtnmk" + '("setRL" 0) + '("setLR" 0)) + (LaTeX-add-environments + '("arab" LaTeX-env-args + [ (TeX-arg-eval completing-read "mode: " + LaTeX-arabluatex-mode-options) ] 0) + "txarab" + '("arabverse" LaTeX-env-args + [ TeX-arg-key-val LaTeX-arabluatex-key-val-options ] 0)) + ) + :latex) + +;;; arabluatex.el ends here -- cgit v1.2.3