better tidy up xmlbibresource

1 files changed, 3 insertions, 2 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index ce49ed7..640b91d 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -1733,12 +1733,13 @@ function ekdosis.closeteistream(opt)
    if xmlbibresource ~= nil then
       bibf = assert(io.open(xmlbibresource, "r"))
       t = bibf:read("*a")
-      t = string.gsub(t, " corresp%=%b\"\"", "")
+      t = string.gsub(t, "%s+corresp%=%b\"\"", "")
+      t = string.gsub(t, "\n\n", "\n")
       f:write("<back>", "\n")
       f:write("<listBibl>", "\n")
       for i in string.gmatch(t, "<biblStruct.->.-</biblStruct>")
       do
-         f:write("\n", i, "\n")
+         f:write(i, "\n")
       end
       f:write("</listBibl>", "\n")
       f:write("</back>", "\n")