Partial fix for issue #85

dcpurton · Jun 3, 2024 · 3a5ad07 · 3a5ad07
1 parent 1b374f4
commit 3a5ad07
Show file tree

Hide file tree

Showing 3 changed files with 378 additions and 5 deletions.
diff --git a/scripture.dtx b/scripture.dtx
@@ -3510,7 +3510,11 @@
                     \tl_if_eq:NnF \l_@@_version_position_tl { end }
                       { \tl_clear:N \l_@@_version_tl }
                   }
-                \peek_analysis_map_break:n { ##1 }
+                \peek_analysis_map_break:n
+                  {
+                    \cs_if_exist_use:N \leftprotrusion
+                    ##1
+                  }
               }
           }
           {
@@ -3524,7 +3528,13 @@
                 \bool_case:nF
                   {
                     { \exp_args:No \token_if_eq_meaning_p:NN { ##1 } \nopilcrow }
-                      { }
+                      {
+                        \peek_analysis_map_break:n
+                          {
+                            ##1
+                            \cs_if_exist_use:N \leftprotrusion
+                          }
+                      }
                     { \exp_args:No \token_if_eq_meaning_p:NN { ##1 } \begin }
                       {
                         \bool_if:NF \l_@@_indent_bool
@@ -3555,7 +3565,11 @@
                   {
                     \@@_pilcrow_output:
                   }
-                \peek_analysis_map_break:n { ##1 }
+                \peek_analysis_map_break:n
+                  {
+                    \cs_if_exist_use:N \leftprotrusion
+                    ##1
+                  }
               }
           }
       }
@@ -3589,7 +3603,11 @@
                        { scripture / pilcrow } { \@@_pilcrow_output: }
                   }
               }
-            \peek_analysis_map_break:n { ##1 }
+            \peek_analysis_map_break:n
+              {
+                \cs_if_exist_use:N \leftprotrusion
+                ##1
+              }
           }
       }
   }
@@ -5558,7 +5576,11 @@
             \@@_poetry_par:
             \cs_if_eq:NNT \vs \@@_poetry_mode_vertical_verse:n
               { \noindent }
-            \peek_analysis_map_break:n { ##1 }
+            \peek_analysis_map_break:n
+              {
+                \cs_if_exist_use:N \leftprotrusion
+                ##1
+              }
           }
       }
   }

diff --git a/testfiles/issue85.lvt b/testfiles/issue85.lvt
@@ -0,0 +1,19 @@
+\documentclass[a4paper]{article}
+\input{regression-test}
+\usepackage{microtype}
+\usepackage{scripture}
+\pagestyle{empty}
+\begin{document}
+\START
+\showoutput
+\begin{scripture}[1 Samuel 15:22]
+  \vs{22}But Samuel replied:
+  \begin{poetry}
+    `Does the \name{Lord} delight in burnt offerings and sacrifices
+    as much as in obeying the \name{Lord}?
+
+    To obey is better than sacrifice,
+    and to heed is better than the fat of rams.
+  \end{poetry}
+\end{scripture}
+\end{document}