-#(define-markup-list-command (show-special-characters layout props) ()
- (let ((defs (ly:output-def-lookup layout 'text-font-defaults)))
- (interpret-markup-list layout props
- (map (lambda (pair)
- (markup #:override '(line-width . 18) #:fill-line (
- #:override '(replacement-alist . ()) (car pair)
- #:override '(thickness . 0.1) #:box (cdr pair))))
- (list-tail (assoc-get 'replacement-alist defs) 3)))))
-
-\markup "List of the special characters:"
-\markuplines \justified-lines \show-special-characters
-
-\markup { \vspace #2 "Markup example:" }
-\markup { \vspace #1 "§numero;2 §ndash; §OE;dipe§hellip; Qui de ton complexe e§s;t épargné§nnbsp;? (B. Bordage §copyright; 2011)" }
-\markup { \vspace #1 "Lyric example:" }
+\markup \column {
+ \bold "Markup example:"
+ "Input:"
+ \override #'(replacement-alist . ()) \typewriter \justify {
+ №2 – &OE;dipe…
+ }
+ "Output:"
+ \italic \justify {
+ №2 – &OE;dipe…
+ }
+ \vspace #0.5
+ \bold "Lyric example:"
+}