Shifting dynamic marks above the staff and to the left of notes

In vocal music, dynamic markings are often placed above, rather than below, the notes, so both the dynamics and the lyrics are close to the staff. In SATB pieces, vertical space can be scarce, and one way to recover some is to move the dynamics so they appear to the left of the notes. In recent development versions of LilyPond, they will then fall down to the staff in many cases. In current stable versions, they need to be manually shifted down.

\version "2.24.0"

%% http://lsr.di.unimi.it/LSR/Item?id=232

\score {
  \new Staff <<
    \new Voice = melody \relative g'' {
  d4 \mp b c d |
  f \p b, c d' \fff |
  a, b\ppp c d  |
}
\new Lyrics \lyricsto melody { one two three four one two three four one two three four }
  >>
  \layout {
    \context {
      \Voice
% The self-alignment-X property tells LilyPond to position the marks on
% their right edges.
      \override DynamicText.self-alignment-X = #1
% The X-offset property normally is set to ly:self-alignment-interface::x-aligned-on-self,
% which is a function that says what the X-offset needs to be in order to align the mark
% on its right edge. Here we tell it instead to use a function that indicates an offset 1.2
% staff spaces to the left of right-alignment.  The 1.2 can be adjusted as needed to give
% different offsets.
      \override DynamicText.X-offset =
        #(lambda (grob)
           (- (ly:self-alignment-interface::x-aligned-on-self grob)
           1.2))
      \override DynamicLineSpanner.direction = #UP
    }
  }
}