microtherion/VocalEasel
1
0
Fork 0
mirror of https://github.com/microtherion/VocalEasel.git synced 2024-12-22 11:14:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Escape quotes in lilypond titles

Browse Source
This commit is contained in:
Matthias Neeracher 2011-08-26 18:17:32 +00:00
parent af22a973cf
commit 7147acc66b
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Sources/VLLilypondDocument.mm
View File

@ -5,7 +5,7 @@
// //
// (MN) Matthias Neeracher // (MN) Matthias Neeracher
// //
// Copyright © 2006-2007 Matthias Neeracher // Copyright © 2006-2011 Matthias Neeracher
// //
#import "VLLilypondDocument.h" #import "VLLilypondDocument.h"
@ -87,12 +87,18 @@
} }
} }
- (void)substituteMacro:(NSString*)macro withValue:(NSString*)value - (void)substituteMacro:(NSString*)macro withValue:(NSString*)value
{ {
[self substituteMacro:macro withValue:value repeat:NO]; [self substituteMacro:macro withValue:value repeat:NO];
} }
- (void)substituteMacro:(NSString*)macro withValue:(NSString*)value escapingQuotes:(BOOL)escape
{
if (escape)
value = [value stringByReplacingOccurrencesOfString:@"\"" withString:@"\\\""];
[self substituteMacro:macro withValue:value repeat:NO];
}
- (void) purgeMacros - (void) purgeMacros
{ {
for (NSRange range = [self rangeOfString:@"<{"]; for (NSRange range = [self rangeOfString:@"<{"];
@ -149,10 +155,10 @@ static const char * sPaperNames[] = {
float scaling= [[[pi dictionary] objectForKey:NSPrintScalingFactor] float scaling= [[[pi dictionary] objectForKey:NSPrintScalingFactor]
floatValue]; floatValue];
[ly substituteMacro:@"TITLE" withValue:songTitle]; [ly substituteMacro:@"TITLE" withValue:songTitle escapingQuotes:YES];
[ly substituteMacro:@"POET" withValue:songLyricist]; [ly substituteMacro:@"POET" withValue:songLyricist escapingQuotes:YES];
[ly substituteMacro:@"COMPOSER" withValue:songComposer]; [ly substituteMacro:@"COMPOSER" withValue:songComposer escapingQuotes:YES];
[ly substituteMacro:@"ARRANGER" withValue:songArranger]; [ly substituteMacro:@"ARRANGER" withValue:songArranger escapingQuotes:YES];
[ly substituteMacro:@"VLVERSION" withValue: [ly substituteMacro:@"VLVERSION" withValue:
[bndl objectForInfoDictionaryKey:@"CFBundleVersion"]]; [bndl objectForInfoDictionaryKey:@"CFBundleVersion"]];
[ly substituteMacro:@"PAPERSIZE" withValue:paper]; [ly substituteMacro:@"PAPERSIZE" withValue:paper];