diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 22:27:29 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 22:27:29 +0100 |
| commit | 0867a0080d97e03f56b4af1cd7b5ae5c397efb56 (patch) | |
| tree | f8668150eb09e2a3d3a1820b26865d602ee9eb12 | |
| parent | 8dfc5ee3adfbfb06c689eaafb79b46d7c2c75ca4 (diff) | |
Unclutter Edit menu.
| -rw-r--r-- | guile-studio-configure.scm | 31 |
1 files changed, 23 insertions, 8 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 1682c5f..86be95d 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -288,19 +288,34 @@ with the " :help "Discard (kill) current buffer")) (bindings--define-key menu (vector 'dired) - '(menu-item "Open Directory..." dired - :help "Read a directory, to operate on its files")) - (bindings--define-key menu (vector 'open-file) - '(menu-item "Open File..." menu-find-file-existing - :help "Read an existing file into an Emacs buffer")) + '(menu-item "Open File..." dired-sidebar-show-sidebar + :help "Show the directory browser in a side bar")) (bindings--define-key menu (vector 'new-file) - '(menu-item "Visit New File..." find-file - :enable menu-bar-non-minibuffer-window-p - :help "Specify a new file's name, to edit the file")) + '(menu-item "New File" (lambda () + (interactive) + (select-window + (get-window-with-predicate + (lambda (window) + (window-parameter window 'guile-studio/edit)))) + (find-file "untitled.scm")) + :help "Create a new file buffer")) menu)) (bindings--define-key global-map (vector 'menu-bar 'file) (cons (purecopy "File") menu-bar-file-menu)) + ;; Unclutter Edit menu + (define-key menu-bar-edit-menu (vector 'goto) nil) + (define-key menu-bar-edit-menu (vector 'bookmark) nil) + (define-key menu-bar-edit-menu (vector 'separator-bookmark) nil) + (define-key menu-bar-edit-menu (vector 'fill) nil) + (define-key menu-bar-edit-menu (vector 'props) nil) + + (define-key menu-bar-edit-menu (vector 'replace 'tags-repl) nil) + (define-key menu-bar-edit-menu (vector 'replace 'tags-repl-continue) nil) + (define-key menu-bar-edit-menu (vector 'search) + '(menu-item "Search..." isearch-forward-regexp + :help "Incrementally search for a regular expression")) + ;; Check syntax on the fly (require 'flycheck) (require 'flycheck-guile) |