added note_totei()

1 files changed, 60 insertions, 0 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 9518bf0..fd1768e 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -938,6 +938,7 @@ idno={}, msName={}, origDate={}][3]{%
 % \fi
 % \begin{ekdlua}
 
+-- This table will hold the functions:
 ekdosis = {}
 
 -- lpeg equivalent for string.gsub()
@@ -963,6 +964,7 @@ local aftercmd = lpeg.Cs(lpeg.S("*[{,.?;:'`\"") + dblbkslash)
 local cmdargs = lpeg.Cs(spce^-1 * bsqbracketsii * bcbracesii * bsqbrackets^-1)
 local app = lpeg.Cs("app")
 local lemrdg = lpeg.Cs(lpeg.Cs("lem") + lpeg.Cs("rdg"))
+local note = lpeg.Cs("note")
 local lnbrk = lpeg.Cs("\\\\")
 local poemline = lpeg.Cs(lnbrk * bsqbrackets^-1)
 local endpoem = lpeg.Cs(lnbrk * lpeg.S("*!") * bsqbrackets^-1)
@@ -1227,6 +1229,62 @@ local function xml_entities(str)
    return str
 end
 
+local function note_totei(str)
+   str = gsub(str,
+              dblbkslash *
+                 note *
+                 spcenc^-1 *
+                 bsqbrackets *
+                 bcbraces *
+                 spcenc^-1,
+              function(bkslash, cmd, opt, arg)
+                 opt = string.sub(opt, 2, -2)
+                 arg = string.sub(arg, 2, -2)
+                 teitype = string.match(opt, "%f[%w]type%s?%=%s?%b{}")
+                    or string.match(opt, "%f[%w]type%s?%=%s?%w+%f[%W]")
+                    or ""
+                 teitype = string.gsub(teitype, "type%s?%=%s?(%b{})", function(bbraces)
+                                      bbraces = string.sub(bbraces, 2, -2)
+                                      return string.format("%s", bbraces)
+                 end)
+                 teitype = string.gsub(teitype, "(type%s?%=%s?)(%w+%f[%W])", "%2")
+                 right = string.match(opt, "%f[%w]labelb%s?%=%s?%b{}")
+                    or string.match(opt, "%f[%w]labelb%s?%=%s?%w+%f[%W]")
+                    or ""
+                 right = string.gsub(right, "labelb%s?%=%s?(%b{})", function(bbraces)
+                                      bbraces = string.sub(bbraces, 2, -2)
+                                      return string.format("%s", bbraces)
+                 end)
+                 right = string.gsub(right, "(labelb%s?%=%s?)(%w+%f[%W])", "%2")
+                 left = string.match(opt, "%f[%w]labele%s?%=%s?%b{}")
+                    or string.match(opt, "%f[%w]labele%s?%=%s?%w+%f[%W]")
+                    or ""
+                 left = string.gsub(left, "labele%s?%=%s?(%b{})", function(bbraces)
+                                      bbraces = string.sub(bbraces, 2, -2)
+                                      return string.format("%s", bbraces)
+                 end)
+                 left = string.gsub(left, "(labele%s?%=%s?)(%w+%f[%W])", "%2")
+                 
+                 if left ~= "" and teitype ~= ""
+                 then
+                    return string.format("<%s type=\"%s\" target=\"#range(right(%s),left(%s))\">%s</%s>",
+                                         cmd, teitype, right, left, arg, cmd)
+                 elseif left ~= "" and teitype == ""
+                 then
+                    return string.format("<%s target=\"#range(right(%s),left(%s))\">%s</%s>",
+                                         cmd, right, left, arg, cmd)
+                 elseif left == "" and teitype ~= ""
+                 then
+                    return string.format("<%s type=\"%s\" target=\"#right(%s)\">%s</%s>",
+                                         cmd, teitype, right, arg, cmd)             
+                 else
+                    return string.format("<%s target=\"#right(%s)\">%s</%s>",
+                                         cmd, right, arg, cmd)
+                 end
+   end)
+   return str
+end
+
 local function app_totei(str)
    str = gsub(str,
               dblbkslash *
@@ -1284,6 +1342,7 @@ local function lem_rdg_totei(str)
                  arg = string.sub(arg, 2, -2)
                  return lem_rdg_totei(string.format("<%s>%s</%s>", cmd, arg, cmd))
    end)
+   str = string.gsub(str, "(%<lem.-%>.-)(%<note.-%<%/note%>)(.-%<%/lem%>)", "%1%3%2")
    return str
 end
 
@@ -1385,6 +1444,7 @@ local function textotei(str)
       str = string.gsub(str, "%s?\\par%s?", "\n<p>")
       tei_p_open = true
    end
+   str = note_totei(str)
    str = app_totei(str)
    str = lem_rdg_totei(str)
    str = versetotei(str)