From mboxrd@z Thu Jan  1 00:00:00 1970
From: Achim Gratz <Stromeko@nexgo.de>
Subject: Re: no pdf-output in lilypond code blocks
Date: Wed, 30 Jan 2013 21:32:00 +0100
Message-ID: <871ud2if9b.fsf@Rainer.invalid>
References: <87mww7kjdn.fsf@sophokles.streitblatt.de>
	<87pq0w9d7w.fsf@bzg.ath.cx> <8738xpboh5.fsf@sophokles.streitblatt.de>
	<87libg6wen.fsf@bzg.ath.cx> <877gmzsx65.fsf@sophokles.streitblatt.de>
	<87ip6ezzlb.fsf@bzg.ath.cx>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:32949)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1U0eKT-00076q-OW
	for emacs-orgmode@gnu.org; Wed, 30 Jan 2013 15:32:22 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1U0eKS-00038j-Jl
	for emacs-orgmode@gnu.org; Wed, 30 Jan 2013 15:32:21 -0500
Received: from plane.gmane.org ([80.91.229.3]:52523)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1U0eKS-00038c-D5
	for emacs-orgmode@gnu.org; Wed, 30 Jan 2013 15:32:20 -0500
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1U0eKg-0004uC-A6
	for emacs-orgmode@gnu.org; Wed, 30 Jan 2013 21:32:34 +0100
Received: from pd9eb31cd.dip.t-dialin.net ([217.235.49.205])
	by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Wed, 30 Jan 2013 21:32:34 +0100
Received: from Stromeko by pd9eb31cd.dip.t-dialin.net with local (Gmexim 0.1
	(Debian)) id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Wed, 30 Jan 2013 21:32:34 +0100
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Bastien writes:
> Hi Florian,
>
> Florian Beck <fb@miszellen.de> writes:
>
>> I can live with setting `ly-gen-pdf', but maybe something like
>>
>> (pcase (file-name-extension out-file)
>>         ("pdf" "--pdf ")
>>         ("ps" "--ps ")
>>         ("png" "--png ")
>>         (t "--png "))
>>
>> would be even better?
>
> Indeed.  This is now the case, thanks!

This would be a bug, I believe you should use backquotes on the string
constants if indeed pcase should wend its way into Org (this would be
the only place using it):

(pcase (file-name-extension out-file)
        (`"pdf" "--pdf ")
        (`"ps" "--ps ")
        (`"png" "--png ")
        (t "--png "))

But wouldn't something like

(or (cdr (assoc (file-name-extension out-file)
                '(("pdf" . "--pdf ")
		  ("ps" . "--ps ")
		  ("png" . "--png "))))
    "--png ")

work just as well?


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptations for KORG EX-800 and Poly-800MkII V0.9:
http://Synth.Stromeko.net/Downloads.html#KorgSDada