From 7c4512e5282f3476ad3a8569f61b351da9fd745b Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Fri, 10 Apr 2020 14:26:43 +0200
Subject: added .el style file for emacs (wip)

---
 Makefile   | 17 ++++++++++++-----
 ekdosis.el | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+), 5 deletions(-)
 create mode 100644 ekdosis.el

diff --git a/Makefile b/Makefile
index e4e89a2..34e846c 100644
--- a/Makefile
+++ b/Makefile
@@ -5,6 +5,7 @@ PWD   = $(shell pwd)
 VERS  = $(shell ltxfileinfo -v $(NAME).dtx|sed -e 's/^v//')
 LOCAL = $(shell kpsewhich --var-value TEXMFLOCAL)
 UTREE = $(shell kpsewhich --var-value TEXMFHOME)
+HOMEDIR := $$HOME
 all:	$(NAME).pdf
 	test -e README.txt && mv README.txt README || exit 0
 $(NAME).pdf: $(NAME).dtx
@@ -14,23 +15,29 @@ $(NAME).pdf: $(NAME).dtx
 	$(CMP) --shell-escape --recorder --interaction=nonstopmode $(NAME).dtx > /dev/null
 	$(CMP) --shell-escape --recorder --interaction=nonstopmode $(NAME).dtx > /dev/null
 clean:
+	rm -rf _minted-*
 	rm -f $(NAME).{aux,fls,glo,gls,hd,idx,ilg,ind,log,out,toc,pyg}
 	rm -f *~
 	rm -rf auto/
 #	rm -f $(NAME)_*.{bib,lua}
+auctex:
+	if [ ! -d "$(HOMEDIR)/.emacs.d/auctex/auto" ]; then \
+	mkdir -p $(HOMEDIR)/.emacs.d/auctex/auto; \
+	fi
+	cp $(NAME)*.el $(HOMEDIR)/.emacs.d/auctex/auto
 distclean: clean uninst
-	rm -rf _minted-*
 	rm -f $(NAME).{pdf,sty,lua} README*
 	rm -f *.zip *.tar.gz
 uninst:
 	rm -rf $(UTREE)/{tex,source,doc}/lualatex/$(NAME)
-inst: uninst all
+	rm -rf $(HOMEDIR)/.emacs.d/auctex/auto/$(NAME).{el,elc}
+inst: uninst auctex all
 	mkdir -p $(UTREE)/{tex,source,doc}/lualatex/$(NAME)
 	cp $(NAME).dtx $(UTREE)/source/lualatex/$(NAME)
 	cp $(NAME).sty $(UTREE)/tex/lualatex/$(NAME)
 	cp $(NAME).lua $(UTREE)/tex/lualatex/$(NAME)
 	cp $(NAME).pdf $(UTREE)/doc/lualatex/$(NAME)
-local: uninst
+local: uninst auctex
 	$(CMP) $(NAME).ins
 	mkdir -p $(UTREE)/{tex,source,doc}/lualatex/$(NAME)
 	cp $(NAME).sty $(UTREE)/tex/lualatex/$(NAME)
@@ -42,7 +49,7 @@ local: uninst
 #	sudo cp $(NAME).pdf $(LOCAL)/doc/lualatex/$(NAME)
 zip: all
 	ln -sf . $(NAME)
-	zip -Drq $(PWD)/$(NAME)-$(VERS).zip $(NAME)/{README,$(NAME).{pdf,sty,lua}}
+	zip -Drq $(PWD)/$(NAME)-$(VERS).zip $(NAME)/{README,$(NAME).{pdf,sty,lua,el}}
 	rm $(NAME)
 package: distclean all
 	mkdir $(NAME)/
@@ -50,7 +57,7 @@ package: distclean all
 	mkdir -p tex/lualatex/$(NAME)/
 	cp *.lua *.sty tex/lualatex/$(NAME)/
 	mkdir -p doc/lualatex/$(NAME)/
-	cp *.pdf doc/lualatex/$(NAME)/
+	cp *.el *.pdf doc/lualatex/$(NAME)/
 	mkdir -p source/lualatex/$(NAME)/
 	cp Makefile *.dtx source/lualatex/$(NAME)/
 	zip -r $(NAME).tds.zip tex doc source
diff --git a/ekdosis.el b/ekdosis.el
new file mode 100644
index 0000000..63230a0
--- /dev/null
+++ b/ekdosis.el
@@ -0,0 +1,56 @@
+;;; ekdosis.el --- AUCTeX style for `ekdosis.sty'
+;; This file is part of the `ekdosis' package
+
+;; ekdosis -- TEI xml compliant critical editions
+;; Copyright (C) 2020  Robert Alessi
+
+;; 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-ekdosis-preamble-options
+  '(;;
+    ("parnotes" ("true" "false" "roman"))
+    ("teiexport" ("true" "false" "tidy"))
+    ("layout" ("float" "footins"))
+    )
+  "Package options for the ekdosis package.")
+
+(defun LaTeX-ekdosis-package-options ()
+  "Prompt for package options for ekdosis package."
+  (TeX-read-key-val t
+		    (append LaTeX-ekdosis-preamble-options)))
+
+(TeX-add-style-hook
+ "eksosis"
+ (lambda ()
+   ;; Folding features:
+   (add-to-list (make-local-variable 'LaTeX-fold-macro-spec-list)
+		'("{1}"
+		  ("app"))
+		'("{7}||{6}||{5}||{4}||{3}||{2}||{1}"
+		  ("lem"))
+		'("[r]"
+		  ("rdg"))
+		'("[n]"
+		  ("note"))
+		t)
+   ;; This package relies on lualatex, so check for it:
+   (TeX-check-engine-add-engines 'luatex)
+   )
+ LaTeX-dialect)
+
+;;; ekdosis.el ends here
-- 
cgit v1.2.3