From 0fcfaf450c21fd961b9ae81caec13db12cdc629c Mon Sep 17 00:00:00 2001 From: tux Date: Wed, 17 Sep 2025 08:08:40 +0200 Subject: [PATCH] be able to format everything of the songinfo with markup --- private_includes/base/default_songinfo_style.ily | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/private_includes/base/default_songinfo_style.ily b/private_includes/base/default_songinfo_style.ily index fedffab..7a06996 100644 --- a/private_includes/base/default_songinfo_style.ily +++ b/private_includes/base/default_songinfo_style.ily @@ -8,6 +8,7 @@ voicePrefix = "Stimme:" versePrefix = "Strophe:" translationPrefix = "Übersetzung:" + pronunciationPrefix = "Aussprache:" interludePrefix = "Zwischenspiel:" bridgePrefix = "Bridge:" @@ -58,16 +59,16 @@ (interpret-markup-list layout props (append (if (and poet-and-composer-oneliner (< (interval-length (ly:stencil-extent (interpret-markup layout props poet-and-composer-oneliner) X)) current-line-width)) - (list poet-and-composer-oneliner) - (make-wordwrap-string-internal-markup-list #t (string-append + (string-with-paragraphs->markuplist "" poet-and-composer-oneliner) + (string-with-paragraphs->markuplist "" (string-append (if poet-with-year (string-append "\n\n" poet-with-year) "") (if composer-with-year (string-append "\n\n" composer-with-year) "") ))) - (make-wordwrap-string-internal-markup-list #t (string-append + (string-with-paragraphs->markuplist "" (string-append (if copyright (string-append "\n\n© " copyright) ""))) (string-with-paragraphs->markuplist "" infotext) - (string-with-paragraphs->markuplist "Übersetzung: " translation) - (string-with-paragraphs->markuplist "Aussprache: " pronunciation) + (string-with-paragraphs->markuplist (string-append (ly:output-def-lookup layout 'translationPrefix) " ") translation) + (string-with-paragraphs->markuplist (string-append (ly:output-def-lookup layout 'pronunciationPrefix) " ") pronunciation) ))))) (make-null-markup) )