suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make new file|open variant start you out in the module path

Browse Source 
where the file currently being edited lives
This commit is contained in:
Robby Findler 2013-11-06 10:56:11 -06:00
parent 9bc8ce1482
commit c6ecda5b68
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt
View File

@ -6,6 +6,7 @@
racket/path
racket/port
racket/list
racket/match
string-constants
framework
mrlib/name-message
@ -37,6 +38,7 @@
framework/private/aspell
framework/private/logging-timer
setup/collects
scribble/xref
setup/xref
scribble/tag
@ -3761,9 +3763,18 @@
[parent file-menu]
[callback
(λ (x y)
(define editing-path (send (get-definitions-text) get-filename))
(define editing-module-path
(and editing-path
(match (path->module-path editing-path)
[`(lib ,(? string? s))
(define m (regexp-match #rx"^(.*/)[^/]*$" s))
(and m
(list-ref m 1))])))
(define pth
(get-module-path-from-user
#:init (preferences:get 'drracket:open-module-path-last-used)
#:init (or editing-module-path
(preferences:get 'drracket:open-module-path-last-used))
#:pref 'drracket:open-module-path-last-used))
(when pth (handler:edit-file pth)))])
(super file-menu:between-open-and-revert file-menu)