Bastien writes:
> Hi Florian,
>
> Florian Beck <f...@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


Reply via email to