increment xml:ids of <div>s whenever alignment environments are restarted

1 files changed, 90 insertions, 24 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 72d9904..63b3b75 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -1232,6 +1232,18 @@ local function isintable(table, value)
    return false
 end
 
+local function get_a_index(id, table)
+   local idfound = nil
+   for i = 1,#table
+   do
+      if table[i].a == id then
+         idfound = i
+         break
+      end
+   end
+   return idfound
+end
+
 local function getindex(id, table)
    local idfound = nil
    for i = 1,#table
@@ -1422,11 +1434,15 @@ local close_p = {
 function ekdosis.newcmdtotag(cmd, tag, attr)
    if isintable(cmdtotags, cmd)
    then
-      tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
-                   ..cmd..
-                   "\" already exists as a known command to be processed to TEI. "
-                   ..
-                   "Please pick another command.}}")
+      -- tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+      --                   ..cmd..
+      --                   "\" already exists as a known command to be processed to TEI. "
+      --                   ..
+      --                   "Please pick another command.}}")
+      local index = get_a_index(cmd, cmdtotags)
+      table.remove(cmdtotags, index)
+      table.insert(cmdtotags, {a = cmd, b = tag, c = " "..attr})
+      table.sort(cmdtotags, function(a ,b) return(#a.a > #b.a) end)
    else
       table.insert(cmdtotags, {a = cmd, b = tag, c = " "..attr})
       table.sort(cmdtotags, function(a ,b) return(#a.a > #b.a) end)
@@ -1445,11 +1461,18 @@ end
 function ekdosis.newenvtotag(env, tag, attr, closep)
    if isintable(envtotags, env)
    then
-      tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
-         ..cmd..
-         "\" already exists as a known environment to be processed to TEI. "
-         ..
-         "Please pick another environment name.}}")
+      -- tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+      --         ..cmd..
+      --         "\" already exists as a known environment to be processed to TEI. "
+      --         ..
+      --         "Please pick another environment name.}}")
+      local index = get_a_index(env, envtotags)
+      table.remove(envtotags, index)
+      table.insert(envtotags, {a = env, b = tag, c = " "..attr})
+      table.sort(envtotags, function(a ,b) return(#a.a > #b.a) end)
+      if closep == "yes" then
+         table.insert(close_p, tag)
+      else end      
    else
       table.insert(envtotags, {a = env, b = tag, c = " "..attr})
       table.sort(envtotags, function(a ,b) return(#a.a > #b.a) end)
@@ -2101,6 +2124,49 @@ function ekdosis.storecoldata(nthcol, chunk)
    return true
 end
 
+local environment_div = {}
+
+function ekdosis.newscholar(id, siglum)
+   if xmlidfound(id)
+   then
+      tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+            ..id..
+            "\" already exists as a xml:id. " 
+            ..
+            "Please pick another id.}}")
+   else
+      table.insert(xmlids, {xmlid = id})
+      table.sort(xmlids, function(a ,b) return(#a.xmlid > #b.xmlid) end)
+      table.insert(idsRend, {xmlid = id, abbr = siglum})
+      table.sort(idsRend, function(a ,b) return(#a.xmlid > #b.xmlid) end)
+   end
+   return true
+end
+
+
+local function build_envdiv(str)
+   if not environment_div[str]
+   then
+      environment_div[str] = 1
+   else
+      environment_div[str] = environment_div[str] + 1
+   end
+   local div = "div-"..str.."_"..environment_div[str]
+   if xmlidfound(div)
+   then
+      tex.print("\\unexpanded{\\PackageWarning{ekdosis}{\""
+                   ..div..
+                   "\" already exists as a xml:id. " 
+                   ..
+                   "ekdosis has generated some random id.}}")
+      return "div-"..math.random(1000,9999)
+   else
+      table.insert(xmlids, {xmlid = div})
+      table.sort(xmlids, function(a ,b) return(#a.xmlid > #b.xmlid) end)
+      return div
+   end
+end
+
 function ekdosis.mkenv()
    local environments = {}
    for i = 1,#aligned_texts
@@ -2154,21 +2220,21 @@ function ekdosis.mkenv()
       end
       if aligned_texts[i].attribute ~= ""
       then
-         table.insert(environments, "\\EnvtoTEI{"
-                         .. aligned_texts[i].text
-                         .."}{div}"
-                         .."[xml:id=\"div-"
-                         .. aligned_texts[i].text
-                         .. "\" "
-                         .. aligned_texts[i].attribute
-                         .. "]")
+         table.insert(environments, "\\EnvtoTEI{"
+                         .. aligned_texts[i].text
+                         .."}{div}"
+                         .."[xml:id=\""
+                         .. build_envdiv(aligned_texts[i].text)
+                         .. "\" "
+                         .. aligned_texts[i].attribute
+                         .. "]")
       else
-         table.insert(environments, "\\EnvtoTEI{"
-                         .. aligned_texts[i].text
-                         .."}{div}"
-                         .."[xml:id=\"div-"
-                         .. aligned_texts[i].text
-                         .. "\"]")
+         table.insert(environments, "\\EnvtoTEI{"
+                         .. aligned_texts[i].text
+                         .."}{div}"
+                         .."[xml:id=\""
+                         .. build_envdiv(aligned_texts[i].text)
+                         .. "\"]")
       end
    end
    str = table.concat(environments)