From a8c4a82dcf257a4db713a6bae3a0778b030f9b4a Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Thu, 7 Nov 2019 09:55:31 +0100
Subject: better tidy up xmlbibresource

---
 ekdosis.dtx | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'ekdosis.dtx')

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")
-- 
cgit v1.2.3

