[CM] emacs/snd-scheme: open soundfile from dired

[Orm Finnendahl]

Am Montag, den 20. März 2017 um 05:37:13 Uhr (-0700) schrieb bil at ccrma.Stanford.EDU:
> Thanks very much for the emacs code!  I'm not
> sure how to include it in the Snd tarball --
> we could put first function in inf-snd.el;
> for the other, should I make a new file init.el
> for snd?

That probably would make most sense. I updated the code according to
Ralf's suggestion to make it more general and also removed the part
that set the inf-snd-scheme-program-name, which I forgot to clean up.

(defun snd-scheme-open-file (filename)
  "Open file in a running inferior Snd-Scheme process. Start the process if necessary."
  (interactive "FOpen Soundfile:")
  (if (comint-check-proc inf-snd-scheme-buffer)
      (inf-snd-send-string (format "(open-sound \"%s\")" filename))
    (progn
      (set-buffer (apply 'make-comint inf-snd-scheme-buffer-name inf-snd-scheme-program-name nil (list filename)))
      (inf-snd-scheme-mode)
      (snd-send-invisible "#f"))))

--
Orm