Aligner le texte à droite dans une commande

[Loïc Chahine]

     Bonjour,

Je cherche à écrire une petite fonction dans laquelle je cherche à ce que le texte soit aligné à droite, c'est-à-dire que le bord droit du texte tombe sur la note. Or, si \right-align fonctionne hors de la commande, il est comme désactivé quand il se trouve dans sa définition.

Ci-dessous un exemple.

Merci d'avance pour votre aide.

Loïc

\version "2.22"

#(ly:set-option 'partie #t)

#(define-markup-command (textPartie layout props text) (markup?)

  "xxx."

  (if (eqv? #t (ly:get-option 'partie))

    (interpret-markup layout props

    #{\markup { \right-align { « #text » } }#})))

\score {

  \new Staff {

    r2 r2^\markup\textPartie "et et et "

    a' b' c' d'

  }

}