new (experimental) function cleanup_tei()

1 files changed, 12 insertions, 0 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 2d4579c..056d13e 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -1115,6 +1115,17 @@ end
 
 local tidy = nil
 
+local function cleanup_tei()
+   local f = assert(io.open(teifilename.."_tmp.xml", "r"))
+   t = f:read("*a")
+   t = string.gsub(t, "%<p%>%</p%>\n", "")
+   t = string.gsub(t, "^\n", "")
+   local fw = assert(io.open(teifilename.."_tmp.xml", "w"))
+   fw:write(t)
+   fw:close()
+   return true
+end
+
 function ekdosis.closeteistream(opt)
    local f = io.open(teifilename.."_tmp.xml", "a+")
    f:write("\n", "</body>", "\n")
@@ -1136,6 +1147,7 @@ function ekdosis.closeteistream(opt)
    f:write("</text>", "\n")
    f:write("</TEI>", "\n")
    f:close()
+   cleanup_tei()
    os.remove(teifilename..".xml")
    os.rename(teifilename.."_tmp.xml", teifilename..".xml")
    if opt == "tidy" then