-shiftOn = \property Voice.NoteColumn \override #'horizontal-shift = #1
-shiftOnn = \property Voice.NoteColumn \override #'horizontal-shift = #2
-shiftOnnn = \property Voice.NoteColumn \override #'horizontal-shift = #3
+
+phrasingSlurUp = \property Voice.PhrasingSlur \set #'direction = #1
+phrasingSlurDown = \property Voice.PhrasingSlur \set #'direction = #-1
+phrasingSlurBoth = \property Voice.PhrasingSlur \revert #'direction
+
+shiftOn = \property Voice.NoteColumn \set #'horizontal-shift = #1
+shiftOnn = \property Voice.NoteColumn \set #'horizontal-shift = #2
+shiftOnnn = \property Voice.NoteColumn \set #'horizontal-shift = #3