Re: some objects not clickable

[Jean Abou Samra]

Le jeudi 30 mars 2023 à 09:14 +0000, Werner LEMBERG a écrit :
> ```
> 
> Please have a look at the attached snippet.  Neither the `Divisio` nor
> the `VaticanaLigature` grob is clickable.  What can be the reason for
> that?

The ligature is apparently not printed by a `VaticanaLigature` but by a 
`NoteHead` (try `\override NoteHead.color = blue`). A bit disconcerting.

Divisio fails because its stencil is later reset by the engraver according to 
`breathMarkType`.  This appears to work:

```
\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))))
}
\relative c' {
  \omit VaticanaStaff.Clef
    
  \addLink VaticanaStaff.Divisio
    "typesetting-gregorian-chant#divisiones"
  \addLink VaticanaLigature
    "typesetting-gregorian-chant#gregorian-square-neume-ligatures"

  \[ c \flexa b \pes \deminutum d \]

  \section
}
```

A bit ugly, but we don't have better at the moment.

signature.asc
Description: This is a digitally signed message part