From 6ef04a783a099997d4f46d8e26b49bfc2f8292da Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Tue, 7 May 2019 15:34:29 +0200
Subject: process line breaks (\>) in verse

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

(limited to 'ekdosis.dtx')

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

