input/regression/markup-user.ly

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