Slider with ticks


I am not happy with the "Labeled" appearance of the slider in Animate or Manipulate. Instead, I wish ticks with multiple of pi under the slider.

Animate[Plot[Sin[x + phi], {x, 0, 2 Pi}], {phi, 0, 2 Pi,  Appearance -> "Labeled"}] 

What would be the best way to do it? Ideally it should look like this:

Text

I do not think the solution given in https://mathematica.stackexchange.com/a/8264 is practical or even elegant. Following this logic of adding an additional axis I cannot make it look the way I want and, in general, it seems highly "artificial".