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:
Marije Baalman 2009-04-09 20:53:47 +00:00
parent 93812f18a3
commit c18dbb6efe
3 changed files with 27 additions and 0 deletions

24
el/sclang-dev.el Normal file
View 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)
; )
; )

View file

@ -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-c\C-h" . sclang-find-help)
("\C-\M-h" . sclang-goto-help-browser) ("\C-\M-h" . sclang-goto-help-browser)
("\C-c\C-s" . sclang-main-stop) ("\C-c\C-s" . sclang-main-stop)
("\C-c\C-k" . sclang-edit-dev-source)
)) ))
(provide 'sclang-minor-mode) (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-s" . sclang-main-stop)
("\C-c\C-v" . sclang-edit-html-help-file) ("\C-c\C-v" . sclang-edit-html-help-file)
("E" . sclang-edit-help-code) ("E" . sclang-edit-help-code)
("\C-c\C-k" . sclang-edit-dev-source)
)) ))
(provide 'sclang-help-minor-mode) (provide 'sclang-help-minor-mode)

View file

@ -132,6 +132,7 @@
(define-key map "\C-c\C-r" 'sclang-main-run) (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-s" 'sclang-main-stop)
(define-key map "\C-c\C-p" 'sclang-show-server-panel) (define-key map "\C-c\C-p" 'sclang-show-server-panel)
(define-key map "\C-c\C-k" 'sclang-edit-dev-source)
;; electric characters ;; electric characters
(define-key map "}" 'sclang-electric-brace) (define-key map "}" 'sclang-electric-brace)
(define-key map ")" 'sclang-electric-brace) (define-key map ")" 'sclang-electric-brace)