From e72efbd1563007ad1bb4b94765535feef3eb3347 Mon Sep 17 00:00:00 2001 From: tux Date: Sun, 4 Feb 2024 16:28:48 +0100 Subject: [PATCH] custom line breaks more robust refs #21 --- verses_with_chords.ly | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/verses_with_chords.ly b/verses_with_chords.ly index c1b8344..6937469 100644 --- 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))))))