Le jeudi 30 mars 2023 à 10:13 +0000, Werner LEMBERG a écrit : > ``` > > > The ligature is apparently not printed by a `VaticanaLigature` but > > by a `NoteHead` (try `\override NoteHead.color = blue`). A bit > > disconcerting. > > Interestingly, adding > > ``` > \addLink NoteHead "writing-pitches" > ``` > > doesn't help for `VaticanaLigature` (but works for normal note heads). > This looks like a problem deep in `vaticana-ligature-engraver.cc` (and > `mensural-ligature-engraver.cc`, which has exactly the same problem > for `MensuralLigature`).
Right. It's the same problem as for `Divisio`, and the same workaround applies:
```
\version "2.24"
\pointAndClickOff
\include "gregorian.ly"
#(use-modules (ice-9 match))
#(define notation-format
(match (ly:version)
((major minor _)
(format
#f
"https://lilypond.org/doc/v~a.~a/Documentation/notation/~~a";
major
minor))))
#(define ((add-link doc) grob original)
(if (ly:stencil? original)
(let ((url (format #f notation-format doc)))
(grob-interpret-markup
grob
(make-with-url-markup url (make-stencil-markup original))))
original))
addLink =
#(define-music-function (path doc)
(symbol-list? string?)
"Add a clickable link for a grob of type *path* to the documentation
page *doc* in the Notation Reference. All grobs in the score are
affected."
(propertyOverride
(append path '(stencil))
(grob-transformer 'stencil (add-link doc))))
\new VaticanaStaff \with {
\override Divisio.before-line-breaking =
#(lambda (grob)
(let ((orig (ly:grob-property grob 'stencil)))
(set! (ly:grob-property grob 'stencil)
((add-link "typesetting-gregorian-chant#divisiones") grob
orig))))
\override NoteHead.before-line-breaking =
#(lambda (grob)
(let ((orig (ly:grob-property grob 'stencil)))
(set! (ly:grob-property grob 'stencil)
((add-link
"typesetting-gregorian-chant#gregorian-square-neume-ligatures") grob orig))))
}
\relative c' {
\[ c \flexa b \pes \deminutum d \]
\section
}
```
signature.asc
Description: This is a digitally signed message part
