\version "2.18.2"

#(ly:set-option 'debug-skylines)

% needed before 2_19_37
#(define-markup-command (with-dimensions-from layout props arg1 arg2)
  (markup? markup?)
  (let* ((stil1 (interpret-markup layout props arg1))
    (x (ly:stencil-extent stil1 0))
    (y (ly:stencil-extent stil1 1)))
    (interpret-markup layout props (markup #:with-dimensions x y arg2))))

% workaround
#(define-markup-command (rounded-boxx layout props args) (markup?)
  (let * ((m (make-rounded-box-markup (markup args))))
   (interpret-markup layout props (markup #:with-dimensions-from m m))))


{
%  \override TextScript.stencil =
%  #(make-stencil-boxer 0.03 0 ly:text-interface::print)
  \textLengthOn
  s1
  s1_\markup \rounded-box "-box"
  s1_\markup \rounded-boxx "-boxx"
%  s1_\markup \pad-x #0 \rounded-box "pad-x"
}