added scel function for shortcut to open source file at development location
git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@9037 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
parent
93812f18a3
commit
c18dbb6efe
3 changed files with 27 additions and 0 deletions
24
el/sclang-dev.el
Normal file
24
el/sclang-dev.el
Normal file
|
@ -0,0 +1,24 @@
|
|||
(sclang-set-command-handler
|
||||
'openDevSource
|
||||
(lambda (file)
|
||||
)
|
||||
)
|
||||
|
||||
(defun sclang-edit-dev-source ()
|
||||
"Edit the help file at the development location."
|
||||
; (sclang-document-name . (prSetTitle (buffer-name)))
|
||||
(interactive)
|
||||
(sclang-perform-command 'openDevSource (buffer-file-name))
|
||||
)
|
||||
|
||||
;(defun sclang-open-dev-source (file)
|
||||
; "Open the help file at the development location."
|
||||
; (if (sclang-html-file-p file)
|
||||
; (html-mode)
|
||||
; ;; (find-file file)
|
||||
; )
|
||||
; (if ( sclang-sc-file-p file )
|
||||
; (sclang-mode)
|
||||
; )
|
||||
; )
|
||||
|
|
@ -22,6 +22,7 @@ sclang code with the normal command C-c C-c and C-c C-x."
|
|||
("\C-c\C-h" . sclang-find-help)
|
||||
("\C-\M-h" . sclang-goto-help-browser)
|
||||
("\C-c\C-s" . sclang-main-stop)
|
||||
("\C-c\C-k" . sclang-edit-dev-source)
|
||||
))
|
||||
|
||||
(provide 'sclang-minor-mode)
|
||||
|
@ -46,6 +47,7 @@ sclang code with the normal command C-c C-c and C-c C-x."
|
|||
("\C-c\C-s" . sclang-main-stop)
|
||||
("\C-c\C-v" . sclang-edit-html-help-file)
|
||||
("E" . sclang-edit-help-code)
|
||||
("\C-c\C-k" . sclang-edit-dev-source)
|
||||
))
|
||||
|
||||
(provide 'sclang-help-minor-mode)
|
||||
|
|
|
@ -132,6 +132,7 @@
|
|||
(define-key map "\C-c\C-r" 'sclang-main-run)
|
||||
(define-key map "\C-c\C-s" 'sclang-main-stop)
|
||||
(define-key map "\C-c\C-p" 'sclang-show-server-panel)
|
||||
(define-key map "\C-c\C-k" 'sclang-edit-dev-source)
|
||||
;; electric characters
|
||||
(define-key map "}" 'sclang-electric-brace)
|
||||
(define-key map ")" 'sclang-electric-brace)
|
||||
|
|
Loading…
Reference in a new issue