ly/text-replacements.ly

   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.7"
  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       ("§hellip;" . "…")
  29       ("§ndash;" . "–")
  30       ("§mdash;" . "—")
  31       ("§iexcl;" . "¡")
  32       ("§iquest;" . "¿")
  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       ("§ensp;" . " ")
  52       ("§emsp;" . " ")
  53       ("§thinsp;" . " ")
  54       ("§nbsp;" . " ")
  55       ("§nnbsp;" . " ") ; narrow non-breaking space
  56       ("§zwj;" . "‍")
  57       ("§zwnj;" . "‌")
  58       ("§middot;" . "·") ; interpunct
  59
  60       ; General typography
  61       ("§bull;" . "•")
  62       ("§copyright;" . "©")
  63       ("§registered;" . "®")
  64       ("§trademark;" . "™")
  65       ("§dagger;" . "†")
  66       ("§Dagger;" . "‡")
  67       ("§numero;" . "№")
  68       ("§ordf;" . "ª")
  69       ("§ordm;" . "º")
  70       ("§para;" . "¶")
  71       ("§sect;" . "§")
  72       ("§deg;" . "°")
  73       ("§numero;" . "№")
  74       ("§permil;" . "‰")
  75       ("§brvbar;" . "¦")
  76
  77       ; Diacritics
  78       ("§acute;" . "´")
  79       ("§acutedbl;" . "˝")
  80       ("§grave;" . "`")
  81       ("§breve;" . "˘")
  82       ("§caron;" . "ˇ")
  83       ("§cedilla;" . "¸")
  84       ("§circumflex;" . "^")
  85       ("§diaeresis;" . "¨")
  86       ("§macron;" . "¯")
  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       ("§plus;" . "+")
 112       ("§minus;" . "−")
 113       ("§times;" . "×")
 114       ("§div;" . "÷")
 115       ("§sup1;" . "¹")
 116       ("§sup2;" . "²")
 117       ("§sup3;" . "³")
 118       ("§sqrt;" . "√")
 119       ("§increment;" . "∆")
 120       ("§infty;" . "∞")
 121       ("§sum;" . "∑")
 122       ("§pm;" . "±")
 123       ("§bulletop;" . "∙")
 124       ("§partial;" . "∂")
 125       ("§neg;" . "¬")
 126
 127       ; Currency symbols
 128       ("§currency;" . "¤")
 129       ("§dollar;" . "$")
 130       ("§euro;" . "€")
 131       ("§pounds;" . "£")
 132       ("§yen;" . "¥")
 133       ("§cent;" . "¢"))))