Fonction : insérer un bloc Score dans un markup

[Remy CLAVERIE]

Bonjour à tous,

 

Régulièrement pour des notes éditoriales, j'utilise des extraits de musiques que s'insère dans un markup. Je me suis servi de la solution décrite ici : https://lists.gnu.org/archive/html/lilypond-user/2013-12/msg01239.html

Par exemple :

\score {
        \new Staff \with {
          \remove "Time_signature_engraver"
          fontSize = #-4
          \override StaffSymbol #'staff-space = #(magstep -4)
          \override StaffSymbol #'thickness = #(magstep -4)
        }
        \relative do {
          \time 2/1
          \clef "G_8"
          \bar"|"
          mi2. fad4 sold la si mi,
        }
        \layout {
          indent = 0\cm
          ragged-last = ##t
        }
      }

 

Afin de minimiser le code, j'aimerai définir une comande ou une fonction. Je pensais utiliser quelque chose comme :

 

#(define-markup-command (insertMusic layout props theMusic) (markup?)
   "mini score inside a markup "
   (interpret-markup layout props
     #{
       \markup
       \score {
         \new Staff \with {
           \remove "Time_signature_engraver"
           fontSize = #-4
           \override StaffSymbol #'staff-space = #(magstep -4)
           \override StaffSymbol #'thickness = #(magstep -4)
         }
         \relative do {
           #theMusic
         }
         \layout {
           indent = 0\cm
           ragged-last = ##t
         }
       }
     #}))

 

Cela ne marche pas. Certainement car il faut un objet 'music' et non 'markup' pour theMusic.

Mais je ne sais pas comment faire, et je n'ai pas trouvé dans les mailing-lists.

 

L'un de vous pourrait-il me dire si c'est possible et me donner un lien ?

 

Merci de votre aide,

 

Bon dimacnhe,

Rémy