+(define-public (right-align-markup grob props . rest)
+ (let* ((m (interpret-markup grob props (car rest))))
+ (ly:molecule-align-to! m X RIGHT)
+ m))
+
+(define-public (halign-markup grob props . rest)
+ "Set horizontal alignment. Syntax: haling A MARKUP. A=-1 is LEFT,
+A=1 is right, values in between vary alignment accordingly."
+ (let* ((m (interpret-markup grob props (cadr rest))))
+ (ly:molecule-align-to! m X (car rest))
+ m))
+
+(define-public (left-align-markup grob props . rest)
+ (let* ((m (interpret-markup grob props (car rest))))
+ (ly:molecule-align-to! m X RIGHT)
+ m))
+