LEFT | RIGHT |
(no file at all) | |
| 1 %%%% This file is part of LilyPond, the GNU music typesetter. |
| 2 %%%% |
| 3 %%%% Copyright (C) 2011 Bertrand Bordage <bordage.bertrand@gmail.com> |
| 4 %%%% |
| 5 %%%% LilyPond is free software: you can redistribute it and/or modify |
| 6 %%%% it under the terms of the GNU General Public License as published by |
| 7 %%%% the Free Software Foundation, either version 3 of the License, or |
| 8 %%%% (at your option) any later version. |
| 9 %%%% |
| 10 %%%% LilyPond is distributed in the hope that it will be useful, |
| 11 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 12 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 13 %%%% GNU General Public License for more details. |
| 14 %%%% |
| 15 %%%% You should have received a copy of the GNU General Public License |
| 16 %%%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>. |
| 17 |
| 18 \version "2.15.13" |
| 19 |
| 20 #(define (add-text-replacements! alist) |
| 21 (assoc-set! text-font-defaults 'replacement-alist |
| 22 (cdaar |
| 23 (internal-add-text-replacements (list text-font-defaults) alist)))) |
| 24 |
| 25 #(define (include-special-characters) |
| 26 (add-text-replacements! |
| 27 '(;; Punctuation |
| 28 ("…" . "…") |
| 29 ("–" . "–") |
| 30 ("—" . "—") |
| 31 ("¡" . "¡") |
| 32 ("¿" . "¿") |
| 33 ("&solidus;" . "∕") ; this is not a slash, |
| 34 ; contrary to what is said in Unicode. |
| 35 |
| 36 ;; French, German and English quotes open/close |
| 37 ("&flq;" . "‹") |
| 38 ("&frq;" . "›") |
| 39 ("&flqq;" . "«") |
| 40 ("&frqq;" . "»") |
| 41 ("&glq;" . "‚") |
| 42 ("&grq;" . "‘") |
| 43 ("&glqq;" . "„") |
| 44 ("&grqq;" . "“") |
| 45 ("&elq;" . "‘") |
| 46 ("&erq;" . "’") |
| 47 ("&elqq;" . "“") |
| 48 ("&erqq;" . "”") |
| 49 |
| 50 ;; Word dividers |
| 51 (" " . " ") |
| 52 (" " . " ") |
| 53 (" " . " ") |
| 54 (" " . " ") |
| 55 ("&nnbsp;" . " ") ; narrow non-breaking space |
| 56 ("‍" . "") |
| 57 ("‌" . "") |
| 58 ("·" . "·") ; interpunct |
| 59 |
| 60 ;; General typography |
| 61 ("•" . "•") |
| 62 ("©right;" . "©") |
| 63 ("®istered;" . "®") |
| 64 ("&trademark;" . "™") |
| 65 ("†" . "†") |
| 66 ("‡" . "‡") |
| 67 ("№" . "№") |
| 68 ("ª" . "ª") |
| 69 ("º" . "º") |
| 70 ("¶" . "¶") |
| 71 ("§" . "§") |
| 72 ("°" . "°") |
| 73 ("№" . "№") |
| 74 ("‰" . "‰") |
| 75 ("¦" . "¦") |
| 76 |
| 77 ;; Diacritics |
| 78 ("´" . "´") |
| 79 ("´dbl;" . "˝") |
| 80 ("`" . "`") |
| 81 ("˘" . "˘") |
| 82 ("ˇ" . "ˇ") |
| 83 ("¸la;" . "¸") |
| 84 ("&circumflex;" . "^") |
| 85 ("&diaeresis;" . "¨") |
| 86 ("¯on;" . "¯") |
| 87 |
| 88 ;; Non-ASCII Letters (Excluding Accented Letters) |
| 89 ("&aa;" . "å") |
| 90 ("&AA;" . "Å") |
| 91 ("&ae;" . "æ") |
| 92 ("&AE;" . "Æ") |
| 93 ("&dh;" . "ð") |
| 94 ("&DH;" . "Ð") |
| 95 ("&dj;" . "đ") |
| 96 ("&DJ;" . "Đ") |
| 97 ("&l;" . "ł") |
| 98 ("&L;" . "Ł") |
| 99 ("&ng;" . "ŋ") |
| 100 ("&NG;" . "Ŋ") |
| 101 ("&o;" . "ø") |
| 102 ("&O;" . "Ø") |
| 103 ("&oe;" . "œ") |
| 104 ("&OE;" . "Œ") |
| 105 ("&s;" . "ſ") |
| 106 ("&ss;" . "ß") |
| 107 ("&th;" . "þ") |
| 108 ("&TH;" . "Þ") |
| 109 |
| 110 ;; Mathematical symbols |
| 111 ("+" . "+") |
| 112 ("−" . "−") |
| 113 ("×" . "×") |
| 114 ("÷" . "÷") |
| 115 ("¹" . "¹") |
| 116 ("²" . "²") |
| 117 ("³" . "³") |
| 118 ("&sqrt;" . "√") |
| 119 ("&increment;" . "∆") |
| 120 ("&infty;" . "∞") |
| 121 ("∑" . "∑") |
| 122 ("±" . "±") |
| 123 ("&bulletop;" . "∙") |
| 124 ("&partial;" . "∂") |
| 125 ("&neg;" . "¬") |
| 126 |
| 127 ;; Currency symbols |
| 128 ("¤cy;" . "¤") |
| 129 ("$" . "$") |
| 130 ("€" . "€") |
| 131 ("£s;" . "£") |
| 132 ("¥" . "¥") |
| 133 ("¢" . "¢")))) |
LEFT | RIGHT |