scm/output-ps.scm - Issue 325630043: Adapt lilypond to ghostscript 9.22, change command line options

Keyboard Shortcuts

	File
u :	up to issue
m :	publish + mail comments
M :	edit review message
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line
<Enter> :	respond to / edit current comment
d :	mark current comment as done

	Issue
u :	up to list of issues
m :	publish + mail comments
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue
# :	close issue

	Comment/message editing
<Ctrl> + s or <Ctrl> + Enter :	save comment
<Esc> :	cancel edit

Unified Diff: scm/output-ps.scm

Issue 325630043: Adapt lilypond to ghostscript 9.22, change command line options

Patch Set: fix --eps, change bug report msg, fix documentation Created 7 years, 6 months ago

Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.

Jump to:

Index: scm/output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm

index 97909da80cf6b8537ba39fcbc384825156361978..92ea9c5cba0b80bb447310b652b5f5fea741066f 100644

--- a/scm/output-ps.scm

+++ b/scm/output-ps.scm

@@ -112,7 +112,7 @@

(string-join (map (lambda (x) (apply glyph-spec x))

(reverse w-x-y-named-glyphs)) "\n")

(length w-x-y-named-glyphs))

- (if (and (ly:bigpdfs) (string-startswith postscript-font-name "Emmentaler"))

+ (if (and (ly:get-option 'music-font-encodings) (string-startswith postscript-font-name "Emmentaler"))

(ly:format "/~a-O ~a output-scale div selectfont\n~a"

postscript-font-name size

(string-join (map (lambda (x) (apply emglyph-spec x))

@@ -166,7 +166,7 @@

""))

(define (named-glyph font glyph)

- (if (and (ly:bigpdfs) (string-startswith (ly:font-file-name font) "emmentaler"))

+ (if (and (ly:get-option 'music-font-encodings) (string-startswith (ly:font-file-name font) "emmentaler"))

(if (string-endswith (ly:font-file-name font)"-brace")

(if (or (string-startswith glyph "brace1") (string-startswith glyph "brace2"))

(ly:format "~a ~a" (string-append (ps-font-command font) "-N" ) glyph)

« no previous file with comments | « scm/lily.scm ('k') | no next file » | no next file with comments »