Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(2605)

Delta Between Two Patch Sets: input/regression/markup-special-characters.ly

Issue 4553056: New alist to replace special characters. (Closed)
Left Patch Set: Adds a list of special characters that can easily be included. Created 13 years, 7 months ago
Right Patch Set: Partially reverting one of Neil's changes. Created 13 years, 5 months ago
Left:
Right:
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
Left: Side by side diff | Download
Right: Side by side diff | Download
« no previous file with change/comment | « Documentation/notation/vocal.itely ('k') | lily/lexer.ll » ('j') | no next file with change/comment »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
LEFTRIGHT
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 }
LEFTRIGHT

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b