spaceRight =
#(define-music-function (parser location space)(number?)
(let* ((amount (+ space 0.5))
(space-right `(extra-space . ,amount)))
#{
%% Maybe additional layout-objects must be affected!?
\override Score.BarLine #'space-alist #'right-edge = #space-right
\override Score.KeySignature #'space-alist #'right-edge = #space-right
\override Score.KeyCancellation #'space-alist #'right-edge = #space-right
\override Score.TimeSignature #'space-alist #'right-edge = #space-right
#}))
{
% commented settings for testings
\spaceRight #30
%\key d\major
a\( b c d~(
%\breathe
\break
%\time 8/8
%\clef alto
\key cis\major
d4 b) c\) d \bar "|."
}