zzkt/scel
1
0
Fork 0
Code Issues 7 Pull requests Projects Activity Actions

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
el/sclang-interp.el
View file

@ -301,6 +301,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
(append-option "-r")) (append-option "-r"))
(if sclang-main-stop (if sclang-main-stop
(append-option "-s")) (append-option "-s"))
(append-option "-iscel")
res))) res)))
(defun sclang-start () (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)) (sclang-eval-string string (not silent-p))
string))) 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 (defvar sclang-eval-results nil
"Save results of sync SCLang evaluation.") "Save results of sync SCLang evaluation.")

2
el/sclang-mode.el
View file

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