summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-30 12:20:32 +0100
committerBastien Guerry <bzg@altern.org>2013-01-30 12:20:32 +0100
commitf518bc8f81235e78f0ddabc25fd8a53e21f79d93 (patch)
tree9c4494e8394484b9782494e69e644955952d42e4
parent2d18609f4aabbfbf0a3b1be093675de47c72a7c5 (diff)
downloadorg-mode-f518bc8f81235e78f0ddabc25fd8a53e21f79d93.tar.gz
ob-lilypond.el (ly-process-basic): Don't use `ly-gen-png'
* ob-lilypond.el (ly-process-basic): Don't use `ly-gen-png' and friends, rely on the extension of the output file. Thanks to Florian Beck for suggesting this.
-rw-r--r--lisp/ob-lilypond.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 1c70f21..8b144d8 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -152,10 +152,11 @@ specific arguments to =org-babel-tangle="
" -dbackend=eps "
"-dno-gs-load-fonts "
"-dinclude-eps-fonts "
- (cond (ly-gen-png "--png ")
- (ly-gen-pdf "--pdf ")
- (ly-use-eps "--ps ")
- (t "--png "))
+ (pcase (file-name-extension out-file)
+ ("pdf" "--pdf ")
+ ("ps" "--ps ")
+ ("png" "--png ")
+ (t "--png "))
"--output="
(file-name-sans-extension out-file)
" "