diff options
-rw-r--r-- | ekdosis.dtx | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ekdosis.dtx b/ekdosis.dtx index 0237235..d0d07cb 100644 --- a/ekdosis.dtx +++ b/ekdosis.dtx | |||
@@ -61,7 +61,7 @@ along with this program. If not, see | |||
61 | %<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01] | 61 | %<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01] |
62 | %<package>\ProvidesPackage{ekdosis} | 62 | %<package>\ProvidesPackage{ekdosis} |
63 | %<*package> | 63 | %<*package> |
64 | [2021/08/24 v1.4-dev Typesetting TEI xml-compliant critical editions] | 64 | [2021/08/29 v1.4-dev Typesetting TEI xml-compliant critical editions] |
65 | %</package> | 65 | %</package> |
66 | %<*driver> | 66 | %<*driver> |
67 | \begin{filecontents}[noheader,overwrite]{bibdata.xml} | 67 | \begin{filecontents}[noheader,overwrite]{bibdata.xml} |
@@ -8291,7 +8291,7 @@ Sample text with a \textcolor{red}{word} in red. | |||
8291 | % \end{macrocode} | 8291 | % \end{macrocode} |
8292 | % \end{macro} | 8292 | % \end{macro} |
8293 | % \begin{macro}{\SetSubseparator} | 8293 | % \begin{macro}{\SetSubseparator} |
8294 | % \changes{v1.4}{2021/08/24}{New command for subseparators} | 8294 | % \changes{v1.4}{2021/08/29}{New command for subseparators} |
8295 | % \cs{SetSubseparator}\marg{sub-separator} allows to change the | 8295 | % \cs{SetSubseparator}\marg{sub-separator} allows to change the |
8296 | % \enquote{subseparator} between variant readings. By default, | 8296 | % \enquote{subseparator} between variant readings. By default, |
8297 | % no subseparator is set:--- | 8297 | % no subseparator is set:--- |
@@ -10009,7 +10009,7 @@ local inanchor = lpeg.Cs{ "<anchor" * ((1 - (lpeg.P"<" + lpeg.P">")) + lpeg.V(1) | |||
10009 | local inopeningnote = lpeg.Cs{ "<note" * ((1 - (lpeg.P"<" + lpeg.P">")) + lpeg.V(1))^0 * ">" } | 10009 | local inopeningnote = lpeg.Cs{ "<note" * ((1 - (lpeg.P"<" + lpeg.P">")) + lpeg.V(1))^0 * ">" } |
10010 | local lnbrk = lpeg.Cs("\\\\") | 10010 | local lnbrk = lpeg.Cs("\\\\") |
10011 | local poemline = lpeg.Cs(lnbrk * spcenc^-1 * lpeg.S("*!")^-1 * bsqbrackets^-1 * spcenc^-1) | 10011 | local poemline = lpeg.Cs(lnbrk * spcenc^-1 * lpeg.S("*!")^-1 * bsqbrackets^-1 * spcenc^-1) |
10012 | local poemlinebreak = lpeg.Cs(lnbrk * spcenc^-1 * lpeg.P(">") * bsqbrackets^-1 * spcenc^-1) | 10012 | local poemlinebreak = lpeg.Cs(lnbrk * spcenc^-1 * (lpeg.P(">") + lpeg.P("+")) * bsqbrackets^-1 * spcenc^-1) |
10013 | local linegroup = lpeg.Cs{ "<lg" * ((1 - lpeg.S"<>") + lpeg.V(1))^0 * ">" } | 10013 | local linegroup = lpeg.Cs{ "<lg" * ((1 - lpeg.S"<>") + lpeg.V(1))^0 * ">" } |
10014 | local bclinegroup = lpeg.Cs(linegroup + lpeg.P("</lg>")) | 10014 | local bclinegroup = lpeg.Cs(linegroup + lpeg.P("</lg>")) |
10015 | local endpoem = lpeg.Cs(lnbrk * lpeg.S("*!") * bsqbrackets^-1) -- not used | 10015 | local endpoem = lpeg.Cs(lnbrk * lpeg.S("*!") * bsqbrackets^-1) -- not used |
@@ -10712,6 +10712,9 @@ local function versetotei(str) | |||
10712 | end) | 10712 | end) |
10713 | str = string.gsub(str, "\\begin%s?%{ekdverse%}(.-)\\end%s?%{ekdverse%}", function(arg) | 10713 | str = string.gsub(str, "\\begin%s?%{ekdverse%}(.-)\\end%s?%{ekdverse%}", function(arg) |
10714 | arg = string.gsub(arg, "\\par%s?", "") | 10714 | arg = string.gsub(arg, "\\par%s?", "") |
10715 | arg = string.gsub(arg, "\\begin%s?%{patverse%*?%}", "") | ||
10716 | arg = string.gsub(arg, "\\end%s?%{patverse%*?%}", "") | ||
10717 | arg = string.gsub(arg, "\\indentpattern%s?%b{}", "") | ||
10715 | return "\\p@rb "..linestotei(string.format("<lg>%s</lg>", arg)).."\\p@ra " | 10718 | return "\\p@rb "..linestotei(string.format("<lg>%s</lg>", arg)).."\\p@ra " |
10716 | end) | 10719 | end) |
10717 | str = string.gsub(str, "\\begin%s?%{verse%}%b[](.-)\\end%s?%{verse%}", function(arg) | 10720 | str = string.gsub(str, "\\begin%s?%{verse%}%b[](.-)\\end%s?%{verse%}", function(arg) |