added flexible \TeXtoTEIPatt command

1 files changed, 20 insertions, 0 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index a7a6dac..5e9dedd 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -441,6 +441,9 @@ idno={}, msName={}, origDate={}][3]{%
     \luastringN{#4})}
   }
 }
+\NewDocumentCommand{\TeXtoTEIPatt}{m m}{%
+  \luadirect{ekdosis.newpatttotag(\luastringN{#1}, \luastringN{#2})}
+}
 %    \end{macrocode}
 % Set |TEI| file name
 %    \begin{macrocode}
@@ -1289,6 +1292,8 @@ local cmdtotags = {
     c=" xml:lang=\"arb-Latn\" type=\"transliterated\" subtype=\"arabtex\""}
 }
 
+local texpatttotags = {}
+
 local envtotags = {
    {a="ekdverse", b="lg", c=""},
    {a="txarabtr", b="p", c=" xml:lang=\"arb-Latn\" type=\"transliterated\""},
@@ -1319,6 +1324,13 @@ function ekdosis.newcmdtotag(cmd, tag, attr)
    return true
 end
 
+function ekdosis.newpatttotag(pat, repl)
+   pat = string.gsub(pat, "%#[1-9]", "(.-)")
+   repl = string.gsub(repl, "%#", "%%")
+   table.insert(texpatttotags, { a = pat, b = repl })
+   return true
+end
+
 function ekdosis.newenvtotag(env, tag, attr, closep)
    if isintable(envtotags, env)
    then
@@ -1538,6 +1550,13 @@ local function envtotei(str)
    return str
 end
 
+local function texpatttotei(str)
+   for i = 1,#texpatttotags do
+      str = string.gsub(str, texpatttotags[i].a, texpatttotags[i].b)
+   end
+   return str
+end
+
 local function cmdtotei(str)
    for i = 1,#cmdtotags
    do
@@ -1588,6 +1607,7 @@ end
 
 local function textotei(str)
    str = xml_entities(str)
+   str = texpatttotei(str)
    if tei_p_open
    then
       str = string.gsub(str, "%s?\\par%s?", "</p>\n<p>")