\version "2.19.54"
\include "oll-core/package.ily"
\include "snippets/ly/_internal/utilities/alist-access.ily"
\include "edition-engraver/edition-engraver.ily"

modMap =
#(define-void-function (edition-target edition-id proc lst)(symbol? list? procedure? list?)
   (for-each (lambda (p)
               (if (pair? p)
                   (let ((mod (proc (cdr p))))
                     (editionMod edition-target (caar p) (cdar p) edition-id mod)
                     )))
     lst))

#(define-public optionsInit clratree)
#(define-public optionsGet getatree)
#(define-public optionsSet setatree)
#(define-public optionsAdd addatree)
#(define-public optionsRemove rematree)

#(define (frac-or-mom? v) (or (fraction? v)(ly:moment? v)))
addModM =
#(define-void-function (name takt pos mod)
     (symbol? integer? frac-or-mom? scheme?)
     (optionsAdd name (list (cons takt pos)) mod)
     )

shiftNoteColumn = \once \override NoteColumn.X-offset = \etc

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% um diesen Teil gehts mir hier
\optionsInit opts
\addModM opts 1 1/4 #10
\addModM opts 1 2/4 #-2 % Die Note wird nur so nah wie möglich an die vorhergehende gerückt
\addModM opts 1 3/4 #28
\modMap target sing.with.bach.Score #shiftNoteColumn #opts
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\consistToContexts #edition-engraver Score.Staff.Voice
\setEditions target

\layout {
  \context {
    \Score
    \editionID ##f sing.with.bach
  }
}

{ bes'4 a' c'' b' }