+
+(define (widen-left-stencil-edges stencils)
+ "Change STENCILS to use the union for the left extents in every
+stencil, so LaTeX includegraphics doesn't fuck up the alignment."
+
+ (define left
+ (apply min
+ (map (lambda (stc)
+ (interval-start (ly:stencil-extent stc X)))
+ stencils)))
+
+ (map (lambda (stil)
+
+ (ly:make-stencil
+ (ly:stencil-expr stil)
+ (cons
+ left
+ (cdr (ly:stencil-extent stil X)))
+ (ly:stencil-extent stil Y)
+ ))
+ stencils))
+