process line breaks (\>) in verse

1 files changed, 2 insertions, 1 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 138b0a8..dc5d439 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -681,7 +681,7 @@ local aftercmd = lpeg.Cs(lpeg.S("*[{,.?;:'`\"") + dblbkslash)
 local cmdargs = lpeg.Cs(spce^-1 * bsqbracketsii * bcbracesii * bsqbrackets^-1)
 local lemrdg = lpeg.Cs(lpeg.Cs("lem") + lpeg.Cs("rdg"))
 local lnbrk = lpeg.Cs("\\\\")
-local poemline = lpeg.Cs(lnbrk * lpeg.S(">")^-1 * bsqbrackets^-1)
+local poemline = lpeg.Cs(lnbrk * bsqbrackets^-1)
 local endpoem = lpeg.Cs(lnbrk * lpeg.S("*!") * bsqbrackets^-1)
 
 -- Booleans
@@ -962,6 +962,7 @@ end
 local function linestotei(str)
    str = "\n<l>"..str
    str = gsub(str, endpoem, "</l>\n")
+   str = gsub(str, poemline * lpeg.P("&gt;"), "\n<lb/>")
    str = gsub(str, poemline, "</l>\n<l>")
    return str
 end