* scm/output-lib.scm (shift-right-at-line-begin): new function:

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 3ca97b267a34989cd5c1fe14e285c7c980f917ff..a305b10eb89b9912623db2d1e478468932512782 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -249,3 +249,9 @@ centered, X==1 is at the right, X == -1 is at the left."
      ) )
      
 
+
+(define-public (shift-right-at-line-begin g)
+  "Shift an item to the right, but only at the start of the line."
+  (if (and (ly:item? g)  (equal? (ly:item-break-dir g) RIGHT))
+      (ly:grob-translate-axis! g 3.5 X)
+  ))