Reviewers: ,
Message:
This fixes issue 1605. Keith's patch takes the "\" bug into account. But
this bug also occures with simple markups, so I assume this hasn't to be
fixed.
Description:
Fix issue 1605
PDF metadata for titles now handle unclosed parentheses.
Please review this at http://codereview.appspot.com/4377054/
Affected files:
M scm/framework-ps.scm
Index: scm/framework-ps.scm
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index
bd4846654add4ffda7d5d482a886197c972af411..07ceef53d4d412a21305bc9a2cce09bef3aed34f
100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -405,9 +405,17 @@
(define (metadata-lookup-output overridevar fallbackvar field)
(let* ((overrideval (ly:modules-lookup (list header) overridevar))
(fallbackval (ly:modules-lookup (list header) fallbackvar))
- (val (if overrideval overrideval fallbackval)))
+ (val (if overrideval overrideval fallbackval))
+ (replace-char (lambda (str char replacement-str) (string-join
(string-split str char) replacement-str)))
+ (val-string
+ (if val
+ (replace-char
+ (replace-char
+ (markup->string val)
+ #\( "\\(")
+ #\) "\\)"))))
(if val
- (format port "/~a (~a)\n" field (markup->string val)))))
+ (format port "/~a (~a)\n" field val-string))))
(display "[ " port)
(metadata-lookup-output 'pdfcomposer 'composer "Author")
(format port "/Creator (LilyPond ~a)\n" (lilypond-version))
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel