From 355af40380b8434eb57cbc95a42453f7e5178dee Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 11 Feb 2019 16:41:53 +0100 Subject: Reduce menu bar clutter. --- guile-studio-configure.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index c3360db..dc7cea4 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -128,6 +128,9 @@ d=\"M400 224h-24v-72C376 68.2 307.8 0 224 0S72 68.2 72 \ (set-window-dedicated-p (selected-window) t)) (run-guile) (set-window-dedicated-p (selected-window) t) + ;; Hide the cluttered Tools and Options menu items + (define-key global-map (vector 'menu-bar 'tools) 'undefined) + (define-key global-map (vector 'menu-bar 'options) 'undefined) ;; Prefer horizontal splits (setq split-height-threshold nil) @@ -148,6 +151,12 @@ d=\"M400 224h-24v-72C376 68.2 307.8 0 224 0S72 68.2 72 \ (unless (local-variable-p 'tool-bar-map) (set (make-local-variable 'tool-bar-map) scheme-tool-bar-map)))) + + ;; Don't show the Geiser menu in a Scheme buffer + (add-hook 'geiser-mode-hook + (lambda () + (define-key geiser-mode-map + (vector 'menu-bar 'geiserm) 'undefined))) (load-theme 'adwaita t))) (define (make-guile-studio-wrapper prefix share emacsdir) -- cgit v1.2.3