committed ide platform switch for emacs/scel, and added the evaluate document shortcut

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@9398 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
Marije Baalman 2009-09-12 15:11:18 +00:00
parent b205ca9ca3
commit 4bff94c0cc
2 changed files with 11 additions and 0 deletions

View file

@ -301,6 +301,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
(append-option "-r"))
(if sclang-main-stop
(append-option "-s"))
(append-option "-iscel")
res)))
(defun sclang-start ()
@ -545,6 +546,14 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil."
(sclang-eval-string string (not silent-p))
string)))
(defun sclang-eval-document (&optional silent-p)
"Execute the whole document as SuperCollider code."
(interactive "P")
(mark-whole-buffer)
(sclang-eval-string
(buffer-substring-no-properties (region-beginning) (region-end))
(not silent-p)))
(defvar sclang-eval-results nil
"Save results of sync SCLang evaluation.")

View file

@ -86,6 +86,7 @@
["Evaluate Line" sclang-eval-region-or-line]
["Evaluate Defun" sclang-eval-defun]
["Evaluate Expression ..." sclang-eval-expression]
["Evaluate Document" sclang-eval-document]
"-"
["Find Definitions ..." sclang-find-definitions]
["Find References ..." sclang-find-references]
@ -117,6 +118,7 @@
(define-key map "\C-c\C-d" 'sclang-eval-region)
(define-key map "\C-\M-x" 'sclang-eval-defun)
(define-key map "\C-c\C-e" 'sclang-eval-expression)
(define-key map "\C-c\C-f" 'sclang-eval-document)
;; language information
(define-key map "\C-c\C-n" 'sclang-complete-symbol)
(define-key map "\M-\t" 'sclang-complete-symbol)