input/regression/markup-user.ly

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