]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/markup-user.ly
Fix #129, #228, #7
[lilypond.git] / input / regression / markup-user.ly
1
2 \header {
3
4   texidoc = "Own markup commands may be defined by using the
5     @code{define-markup-command} scheme macro."
6
7
8 }
9
10
11 \layout { ragged-right = ##t }
12   
13
14
15 \version "2.10.0"
16
17 #(define-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