input/regression/markup-user.ly

   1
   2 \header {
   3
   4   texidoc = "Own markup commands may be defined by using the
   5     @code{def-markup-command} scheme macro."
   6
   7
   8 }
   9
  10
  11 \layout { raggedright = ##t }
  12
  13
  14
  15 \version "2.6.0" % to be updated
  16
  17 #(def-markup-command (upcase paper props str) (string?)
  18   "Upcase the string characters. Syntax: \\upcase #\"string\""
  19   (interpret-markup paper props (make-simple-markup (string-upcase str))))
  20
  21
  22 {
  23   c''-\markup \upcase #"hello world"
  24                                 % produces a "HELLO WORLD" markup
  25 }
  26
  27