Am Montag, den 20. März 2017 um 05:37:13 Uhr (-0700) schrieb
b...@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
_______________________________________________
Cmdist mailing list
Cmdist@ccrma.stanford.edu
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
