input/regression/markup-user.ly

   1 \header {
   2   texidoc = "Users may define non-standard markup commands using
   3 the @code{define-markup-command} scheme macro."
   4 }
   5
   6 \layout { ragged-right = ##t }
   7
   8 \version "2.16.0"
   9
  10 #(define-markup-command (upcase paper props str) (string?)
  11   "Upcase the string characters. Syntax: \\upcase #\"string\""
  12   (interpret-markup paper props (make-simple-markup (string-upcase str))))
  13
  14 \score{
  15   {
  16     c''-\markup \upcase #"hello world in upper case"
  17   }
  18
  19   \layout {
  20     \context {
  21       \Score
  22       \override PaperColumn #'keep-inside-line = ##f
  23     }
  24   }
  25 }