diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-02-11 16:41:53 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-02-11 16:41:53 +0100 |
| commit | 355af40380b8434eb57cbc95a42453f7e5178dee (patch) | |
| tree | 0c08204ad0b96d19f8b15b1342cee0ac5491c518 | |
| parent | 2e10e9115a699f7216584a0d7f8df4e41557a0a0 (diff) | |
Reduce menu bar clutter.
| -rw-r--r-- | guile-studio-configure.scm | 9 |
1 files changed, 9 insertions, 0 deletions
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) |