Bastien writes:
> Hi Florian,
>
> Florian Beck <[email protected]> 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
