Adding 3-column section to score

[Olivier Biot]

Is there a more elegant and less verbose way than the following approach to add a 3-column section for documenting editorial changes to scores?

%% BEGIN
\version "2.16.0"

% LSR snippet: http://lsr.dsi.unimi.it/LSR/Snippet?id=464

#(define-markup-command (columns layout props args) (markup-list?)
   (let ((line-width (/ (chain-assoc-get 'line-width props
                          (ly:output-def-lookup layout 'line-width))
                       (max (length args) 1))))

     (interpret-markup layout props
       (make-line-markup (map (lambda (line)
                                (markup #:pad-to-box `(0 . ,line-width) '(0 . 0)
                                  #:override `(line-width . ,line-width)

                                  line))
                           args)))))

\markup {
  \rounded-box
  \center-column {
    \huge \bold \fill-line {
      \hspace #1
      Bemerkungen
      \hspace #2

      \italic { Remarques }
      \hspace #2
      Notes
      \hspace #1
    }

    \normalsize
    \columns {
      \column {
        \wordwrap { % Deutsch
          \bold {N° 30.} Crantz Ausgabe T. 11: cis \bold { e } gis:

        }
      }
      \column {
        \wordwrap \italic { % Français
          \bold {N° 30.} Édition Crantz, mesure 11: do dièse  \bold { mi } sol dièse:
        }
      }
      \column {
        \wordwrap { % English

          \bold {N° 30.} Crantz Edition, mesure 11: C sharp \bold { E natural } G sharp:
        }
      }
    }
    % Music annotation
    \score {
      \new Staff \with {
        \override Fingering #'add-stem-support = ##t

        \override Fingering #'avoid-slur = #'outside
        \override TupletBracket #'bracket-visibility = ##t
        fontSize = #-3
        \override StaffSymbol #'staff-space = #(magstep -3)

        \override StaffSymbol #'thickness = #(magstep -3)
        \remove "Time_signature_engraver"
      } {
        \key fis \minor
        \time 4/4
        \clef bass
        \bar ""

        \set Score.currentBarNumber = #11
        cis2 ~ cis8 cis-. e?-. gis-.
      }
      \layout { ragged-right = ##t }
    }
  }
}
%% END

Best regards,

Olivier