]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/markup-special-characters.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / markup-special-characters.ly
index 2da01f8d728c54711af8a6249e7de4d701807017..b65a6f728eb8646e1ae5939b1d3eb666d3618ce6 100644 (file)
@@ -1,30 +1,30 @@
-\version "2.15.0"
+\version "2.17.19"
 \header {
   texidoc = "
-  A list of special characters ASCII aliases can be easily included.
+  A list of special character ASCII aliases can be easily included.
   This works for markups and lyrics.
-  "
+"
 }
 
 \paper {
   #(include-special-characters)
+  indent = 0
 }
 
-#(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…
+  }
+  \combine \null \vspace #0.5
+  \bold "Lyric example:"
+}
 \new Lyrics \lyricmode {
-  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;;
+  Ce&s;16 -- &s;ez In -- fi -- dè -- les, un c&oe;ur in -- no -- cent
+  ne craint rien&nnbsp;;
 }