X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fadding-links-to-objects.ly;h=16db39cfc14c468710d8b59500be056dd48733f2;hb=5ae5c88bdb1a478263ed874cb823ec58dafc93f9;hp=d9d0d394fdf91dae0eaa76e3235d00a39b7e57dc;hpb=7ea158846edf78edd2ebb89a7c9b5f9dbca67bf7;p=lilypond.git

diff --git a/Documentation/snippets/adding-links-to-objects.ly b/Documentation/snippets/adding-links-to-objects.ly
index d9d0d394fd..16db39cfc1 100644
--- a/Documentation/snippets/adding-links-to-objects.ly
+++ b/Documentation/snippets/adding-links-to-objects.ly
@@ -1,10 +1,10 @@
 %% 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.15"
+\version "2.18.0"
 
 \header {
   lsrtags = "editorial-annotations, scheme-language, tweaks-and-overrides"
@@ -22,10 +22,6 @@ The linked objects are colored with a separate command.
   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)))
@@ -35,7 +31,8 @@ The linked objects are colored with a separate command.
              (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))))
 
@@ -57,7 +54,7 @@ urlV =
 "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 =