New alist to replace special characters.

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 025590e5bae0e001db8f089a96b811485faa1198..0b453a3838a1c537ab6f21c0f45201f7c5a6cff9 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -968,3 +968,17 @@ between the two text elements."
 (define-public (laissez-vibrer::print grob)
  (ly:tie::print grob))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; text replacements
+
+(define-public default-string-replacement-alist
+         '(; Whitespaces
+           ("\t" . " ")
+           ("\n" . " ")
+           ("\v" . " ")))
+
+(define-public (internal-add-text-replacements props alist)
+  (let* ((dummy-replacements (chain-assoc-get 'replacement-alist props '()))
+         (new-replacements
+             (append dummy-replacements alist)))
+        (prepend-alist-chain 'replacement-alist new-replacements props)))