\concat markup command

[Werner LEMBERG]

All markup commands which accept more than a single markup put spaces
inbetween.  However, sometimes this is not useful (for example, just
look at the bad appearance of the E=mc² -- there is an incorrect space
before the superscript 2.

I thus suggest a command \concat which does the same as \line but
without inserting whitespace:

  #(define-markup-command (concat layout props args) (markup-list?)
    "Concatenate @var{args} in a horizontal line, without spaces inbetween."
    (let*
        ((stencils (map (lambda (m) (interpret-markup layout props m)) args))
         (text-dir (chain-assoc-get 'text-direction props RIGHT))
        )

      (if (= text-dir LEFT)
          (set! stencils (reverse stencils)))

      (stack-stencil-line
       0
       (remove ly:stencil-empty? stencils))))

I can add this if you want me to do so.


   Werner