custom line breaks more robust refs #21

2024-02-04 16:28:48 +01:00 · 2024-02-04 16:28:48 +01:00 · e72efbd156
commit e72efbd156
parent a0f60bc1c7
1 changed files with 10 additions and 1 deletions
--- a/verses_with_chords.ly
+++ b/verses_with_chords.ly
@ -114,7 +114,16 @@
          (make-custom-linebreaks
            (cdr break-words)
            (ly:regex-replace
-              (ly:make-regex (string-append "(" (ly:regex-replace (ly:make-regex "(.)") (car break-words) "(?: *,[^,)]+\\)" 1 "|\\(?" 1 ")") "(?: *,[^,)]+\\))?)(.*)$"))
+              (ly:make-regex
+                (string-append
+                  "("
+                  (string-concatenate
+                    (map
+                      (lambda (character)
+                        (let ((escaped_char (ly:regex-quote (string character))))
+                             (string-append "(?: *,[^,)]+\\)" escaped_char "|\\(?" escaped_char ")")))
+                      (string->list (car break-words))))
+                  "(?: *,[^,)]+\\))?)(.*)$"))
              newtext
              1 "\n" 2))))))