LEFT | RIGHT |
1 \version "2.15.0" | 1 \version "2.15.13" |
2 \header { | 2 \header { |
3 texidoc = " | 3 texidoc = " |
4 A list of special characters ASCII aliases can be easily included. | 4 A list of special character ASCII aliases can be easily included. |
5 This works for markups and lyrics. | 5 This works for markups and lyrics. |
6 " | 6 " |
7 } | 7 } |
8 | 8 |
9 \paper { | 9 \paper { |
10 #(include-special-characters) | 10 #(include-special-characters) |
| 11 indent = 0 |
11 } | 12 } |
12 | 13 |
13 #(define-markup-list-command (show-special-characters layout props) () | 14 \markup \column { |
14 (let ((defs (ly:output-def-lookup layout 'text-font-defaults))) | 15 \bold "Markup example:" |
15 (interpret-markup-list layout props | 16 "Input:" |
16 (map (lambda (pair) | 17 \override #'(replacement-alist . ()) \typewriter \justify { |
17 (markup #:override '(line-width . 18) #:fill-line ( | 18 №2 – &OE;dipe… |
18 #:override '(replacement-alist . ()) (car pair) | 19 } |
19 #:override '(thickness . 0.1) #:box (cdr pair)))) | 20 "Output:" |
20 (list-tail (assoc-get 'replacement-alist defs) 3))))) | 21 \italic \justify { |
21 | 22 №2 – &OE;dipe… |
22 \markup "List of the special characters:" | 23 } |
23 \markuplines \justified-lines \show-special-characters | 24 \vspace #0.5 |
24 | 25 \bold "Lyric example:" |
25 \markup { \vspace #2 "Markup example:" } | 26 } |
26 \markup { \vspace #1 "§numero;2 §ndash; §OE;dipe§hellip; Qui de ton complexe e§s
;t épargné§nnbsp;? (B. Bordage §copyright; 2011)" } | |
27 \markup { \vspace #1 "Lyric example:" } | |
28 \new Lyrics \lyricmode { | 27 \new Lyrics \lyricmode { |
29 Ce§s;16 -- §s;ez In -- fi -- dè -- les, un c§oe;ur in -- no -- cent ne §s;çau
-- roit vous plai -- re~en -- cor§nnbsp;; | 28 Ce&s;16 -- &s;ez In -- fi -- dè -- les, un c&oe;ur in -- no -- cent |
| 29 ne craint rien&nnbsp;; |
30 } | 30 } |
LEFT | RIGHT |