input/test/spanner-after-break-tweak.ly

   1 \version "1.7.21"
   2
   3 \header { texidoc = "@cindex Spanner after break
   4
   5 To selectively tweak spanners after the linebreaking
   6 process, Scheme code must be used.  In this simple example, the tie
   7 after the line break is moved around. "
   8
   9       }
  10
  11 #(define (my-callback grob)
  12   (let* (
  13       (o (ly:get-original grob))
  14       (b (if (ly:grob? o) (ly:get-broken-into o) '() ))
  15       )
  16
  17     ;; Call the equivalent of Tie::after_line_breaking
  18     ;; if you're using this for other grob-types.
  19
  20     (if (and  (>= (length b) 2) (eq? (car (last-pair b)) grob))
  21         (ly:set-grob-property! grob 'extra-offset '(-2 . -1))
  22         )
  23   ))
  24
  25 #(debug-enable 'backtrace)
  26
  27 \score {\notes {
  28     \property Voice.Tie \override #'after-line-breaking-callback =
  29        #my-callback
  30     c1\break ~ c2 ~ c
  31 }
  32     \paper { raggedright = ##t }
  33     }