From 0867a0080d97e03f56b4af1cd7b5ae5c397efb56 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 3 Jan 2021 22:27:29 +0100 Subject: Unclutter Edit menu. --- guile-studio-configure.scm | 31 +++++++++++++++++++++++-------- 1 file 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) -- cgit v1.2.3