Imported Upstream version 2.16.0

[lilypond.git] / ly / text-replacements.ly

diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly
new file mode 100644 (file)
index 0000000..cd6d445
--- /dev/null
+++ b/ly/text-replacements.ly
@@ -0,0 +1,134 @@
+%%%% This file is part of LilyPond, the GNU music typesetter.
+%%%%
+%%%% Copyright (C) 2011--2012 Bertrand Bordage <bordage.bertrand@gmail.com>
+%%%%
+%%%% LilyPond is free software: you can redistribute it and/or modify
+%%%% it under the terms of the GNU General Public License as published by
+%%%% the Free Software Foundation, either version 3 of the License, or
+%%%% (at your option) any later version.
+%%%%
+%%%% LilyPond is distributed in the hope that it will be useful,
+%%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+%%%% GNU General Public License for more details.
+%%%%
+%%%% You should have received a copy of the GNU General Public License
+%%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
+
+\version "2.16.0"
+
+#(define (add-text-replacements! alist)
+   (set! text-font-defaults
+        (assoc-set! text-font-defaults 'replacement-alist
+                    (cdaar
+                     (internal-add-text-replacements (list text-font-defaults) alist)))))
+
+#(define (include-special-characters)
+   (add-text-replacements!
+     '(;; Punctuation
+       ("&hellip;" . "…")
+       ("&ndash;" . "–")
+       ("&mdash;" . "—")
+       ("&iexcl;" . "¡")
+       ("&iquest;" . "¿")
+       ("&solidus;" . "∕") ; this is not a slash,
+                           ; contrary to what is said in Unicode.
+
+       ;; French, German and English quotes open/close
+       ("&flq;" . "‹")
+       ("&frq;" . "›")
+       ("&flqq;" . "«")
+       ("&frqq;" . "»")
+       ("&glq;" . "‚")
+       ("&grq;" . "‘")
+       ("&glqq;" . "„")
+       ("&grqq;" . "“")
+       ("&elq;" . "‘")
+       ("&erq;" . "’")
+       ("&elqq;" . "“")
+       ("&erqq;" . "”")
+
+       ;; Word dividers
+       ("&ensp;" . " ")
+       ("&emsp;" . " ")
+       ("&thinsp;" . " ")
+       ("&nbsp;" . " ")
+       ("&nnbsp;" . " ") ; narrow non-breaking space
+       ("&zwj;" . "‍")
+       ("&zwnj;" . "‌")
+       ("&middot;" . "·") ; interpunct
+
+       ;; General typography
+       ("&bull;" . "•")
+       ("&copyright;" . "©")
+       ("&registered;" . "®")
+       ("&trademark;" . "™")
+       ("&dagger;" . "†")
+       ("&Dagger;" . "‡")
+       ("&numero;" . "№")
+       ("&ordf;" . "ª")
+       ("&ordm;" . "º")
+       ("&para;" . "¶")
+       ("&sect;" . "§")
+       ("&deg;" . "°")
+       ("&numero;" . "№")
+       ("&permil;" . "‰")
+       ("&brvbar;" . "¦")
+
+       ;; Diacritics
+       ("&acute;" . "´")
+       ("&acutedbl;" . "˝")
+       ("&grave;" . "`")
+       ("&breve;" . "˘")
+       ("&caron;" . "ˇ")
+       ("&cedilla;" . "¸")
+       ("&circumflex;" . "^")
+       ("&diaeresis;" . "¨")
+       ("&macron;" . "¯")
+
+       ;; Non-ASCII Letters (Excluding Accented Letters)
+       ("&aa;" . "å")
+       ("&AA;" . "Å")
+       ("&ae;" . "æ")
+       ("&AE;" . "Æ")
+       ("&dh;" . "ð")
+       ("&DH;" . "Ð")
+       ("&dj;" . "đ")
+       ("&DJ;" . "Đ")
+       ("&l;" . "ł")
+       ("&L;" . "Ł")
+       ("&ng;" . "ŋ")
+       ("&NG;" . "Ŋ")
+       ("&o;" . "ø")
+       ("&O;" . "Ø")
+       ("&oe;" . "œ")
+       ("&OE;" . "Œ")
+       ("&s;" . "ſ")
+       ("&ss;" . "ß")
+       ("&th;" . "þ")
+       ("&TH;" . "Þ")
+
+       ;; Mathematical symbols
+       ("&plus;" . "+")
+       ("&minus;" . "−")
+       ("&times;" . "×")
+       ("&div;" . "÷")
+       ("&sup1;" . "¹")
+       ("&sup2;" . "²")
+       ("&sup3;" . "³")
+       ("&sqrt;" . "√")
+       ("&increment;" . "∆")
+       ("&infty;" . "∞")
+       ("&sum;" . "∑")
+       ("&pm;" . "±")
+       ("&bulletop;" . "∙")
+       ("&partial;" . "∂")
+       ("&neg;" . "¬")
+
+       ;; Currency symbols
+       ("&currency;" . "¤")
+       ("&dollar;" . "$")
+       ("&euro;" . "€")
+       ("&pounds;" . "£")
+       ("&yen;" . "¥")
+       ("&cent;" . "¢"))))