added type attribute to lem and rdg

1 files changed, 13 insertions, 7 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 9c6a878..dcc4c9b 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -751,7 +751,7 @@ Running "make install" installs the files in the local TeX tree.
     }\unexpanded\expandafter{\ekd@postrefnum}%
   }%
 \define@cmdkeys[ekd]{lemrdg}[ekdlr@]{wit, alt, pre, post, prewit,
-  postwit}
+  postwit, type}
 \define@cmdkey[ekd]{lem}[ekdl@]{sep}{}
 \presetkeys[ekd]{lem}{sep=\ekdsep}{}
 \define@boolkeys[ekd]{lem}[ekdl@]{nolem, nosep}[true]
@@ -1482,7 +1482,7 @@ local cmdtotags = {
    {a="textsc", b="hi", c=" rend=\"smallcaps\""},
    {a="textsf", b="hi", c=" rend=\"sf\""},
    {a="arbup", b="hi", c=" rend=\"sup\""},
-   {a="txarb", b="s", c=" xml:lang=\"ar-arb\""},
+   {a="txarb", b="s", c=" xml:lang=\"arb\""},
    {a="arb", b="s",
     c=" xml:lang=\"ar-Latn\" type=\"transliterated\" subtype=\"arabtex\""}
 }
@@ -1496,7 +1496,7 @@ local texpatttotags = {
 local envtotags = {
    {a="ekdverse", b="lg", c=""},
    {a="txarabtr", b="p", c=" xml:lang=\"ar-Latn\" type=\"transliterated\""},
-   {a="txarab", b="p", c=" xml:lang=\"ar-arb\""},
+   {a="txarab", b="p", c=" xml:lang=\"arb\""},
    {a="center", b="p", c=" rend=\"centered\""},
    {a="verse", b="lg", c=""},
    {a="arab", b="p",
@@ -1637,15 +1637,21 @@ local function lem_rdg_totei(str)
               function(bkslash, cmd, opt, arg)
                  opt = string.sub(opt, 2, -2)
                  arg = string.sub(arg, 2, -2)
-                 opt = get_attr_value(opt, "wit")
+                 -- opt = get_attr_value(opt, "wit")
+                 --
+                 teiwit = get_attr_value(opt, "wit")
+                 if teiwit ~= "" then teiwit = " wit=\""..ekdosis.getsiglum(teiwit, "tei").."\"" else end
+                 teitype = get_attr_value(opt, "type")
+                 if teitype ~= "" then teitype = " type=\""..teitype.."\"" else end
+                 --
                  if opt == ""
                  then
                     return lem_rdg_totei(string.format("<%s>%s</%s>",
                                                        cmd, arg, cmd))
                  else
-                    opt = ekdosis.getsiglum(opt, "tei")
-                    return lem_rdg_totei(string.format("<%s wit=\"%s\">%s</%s>",
-                                                       cmd, opt, arg, cmd))
+                    -- opt = ekdosis.getsiglum(opt, "tei")
+                    return lem_rdg_totei(string.format("<%s%s%s>%s</%s>",
+                                                       cmd, teiwit, teitype, arg, cmd))
                  end
    end)
    str = gsub(str, spcenc^-0 * dblbkslash * lemrdg * spcenc^-1 * bcbraces * spcenc^-1,