lilypond-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

some objects not clickable


From: Werner LEMBERG
Subject: some objects not clickable
Date: Thu, 30 Mar 2023 09:14:30 +0000 (UTC)

Please have a look at the attached snippet.  Neither the `Divisio` nor
the `VaticanaLigature` grob is clickable.  What can be the reason for
that?


    Werner
\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))))


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
     (lambda (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)))))


\new VaticanaVoice \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
}

PNG image


reply via email to

[Prev in Thread] Current Thread [Next in Thread]