Compare commits
	
		
			1 Commits
		
	
	
		
			main
			...
			0fcfaf450c
		
	
	| Author | SHA1 | Date | |
|---|---|---|---|
| 0fcfaf450c | 
@@ -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)
 | 
			
		||||
    )
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user