%% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+%% generated from LSR http://lsr.di.unimi.it
%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.17.11"
+\version "2.18.0"
\header {
lsrtags = "editorial-annotations, scheme-language, tweaks-and-overrides"
doctitle = "Adding links to objects"
} % begin verbatim
-% Code by Thomas Morley
-% Contributed by harm6
-% Tested with 2.14.2 up to 2.17.9
-
#(define (add-link url-strg)
(lambda (grob)
(let* ((stil (ly:grob-property grob 'stencil)))
(x-ext (ly:stencil-extent stil X))
(y-ext (ly:stencil-extent stil Y))
(url-expr (list 'url-link url-strg `(quote ,x-ext) `(quote ,y-ext)))
- (new-stil (ly:stencil-add (ly:make-stencil url-expr x-ext y-ext) stil)))
+ (new-stil (ly:stencil-add
+ (ly:make-stencil url-expr x-ext y-ext) stil)))
(ly:grob-set-property! grob 'stencil new-stil)))
#f))))
"http://lilypond.org/doc/v2.14/Documentation/notation/note-head-styles"
\relative c' {
- \key cis\minor
+ \key cis \minor
\once \override Staff.Clef.color = #green
\once \override Staff.Clef.after-line-breaking =