From b3d46ff607f78cd59b5216cd36a3a3e2bfbac109 Mon Sep 17 00:00:00 2001 From: tux Date: Mon, 27 May 2024 14:56:44 +0200 Subject: [PATCH] fix tranpose --- verses_with_chords.ly | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/verses_with_chords.ly b/verses_with_chords.ly index 02215b8..86c8c83 100644 --- a/verses_with_chords.ly +++ b/verses_with_chords.ly @@ -122,6 +122,8 @@ newtext 1 "\n" 2)))))) +#(use-modules (lily display-lily)) + % Kompletten Vers mit Akkorden #(define-markup-command (chordverse layout props stanza verse) (string-or-music? string?) #:properties ( @@ -132,7 +134,7 @@ ) "Vers mit Akkorden" (let ((transp (if (car transposition) - (string-append "\\transpose " (note-name->string (car transposition)) " " (note-name->string (cdr transposition))) + (string-append "\\transpose " (symbol->string (note-name->lily-string (car transposition))) " " (symbol->string (note-name->lily-string (cdr transposition)))) ""))) (interpret-markup layout props (markup #:override `(baseline-skip . ,(+ intraverse-vspace songTextLineHeigth)) #:anchor-x-between #:stanza stanza