From abdf87bad8bf18bcf1b175ef7083fdbdd18e4d22 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Thu, 15 Jan 2015 22:36:36 -0500 Subject: [PATCH] Add toggles for tool bar and menu bar Resolves #361 --- doc/DOCUMENTATION.md | 2 ++ spacemacs/funcs.el | 15 +++++++++++++++ spacemacs/keybindings.el | 2 ++ 3 files changed, 19 insertions(+) diff --git a/doc/DOCUMENTATION.md b/doc/DOCUMENTATION.md index 4d1c79e9a..f9298047b 100644 --- a/doc/DOCUMENTATION.md +++ b/doc/DOCUMENTATION.md @@ -696,6 +696,8 @@ Some UI indicators can be toggled on and off (toggles start with `t`): SPC t M | toggle frame maximize SPC t n | show the absolute line numbers SPC t t | toggle frame transparency +SPC t T | toggle tool bar +SPC t U | toggle menu bar ## Mode-line diff --git a/spacemacs/funcs.el b/spacemacs/funcs.el index ae609a5ba..2e5e24611 100644 --- a/spacemacs/funcs.el +++ b/spacemacs/funcs.el @@ -876,6 +876,21 @@ If ASCII si not provided then UNICODE is used instead." (evil-end-of-line) (eval-last-sexp nil))) +(defun spacemacs/toggle-tool-bar () + "Toggle the tool bar. +It has no effect in a terminal." + (interactive) + (when window-system + (tool-bar-mode (if tool-bar-mode -1 1)))) + +(defun spacemacs/toggle-menu-bar () + "Toggle the menu bar. +It has no effect in a terminal if the Emacs version is < `24.4'." + (interactive) + (when (or window-system + (version<= "24.3.1" emacs-version)) + (menu-bar-mode (if menu-bar-mode -1 1)))) + (defun spacemacs/open-in-external-app () "Open current file in external application." (interactive) diff --git a/spacemacs/keybindings.el b/spacemacs/keybindings.el index bbbf81901..c51e73572 100644 --- a/spacemacs/keybindings.el +++ b/spacemacs/keybindings.el @@ -137,6 +137,8 @@ "tM" 'toggle-frame-maximized "tn" 'global-linum-mode "tt" 'toggle-transparency + "tT" 'spacemacs/toggle-tool-bar + "tU" 'spacemacs/toggle-menu-bar "t SPC" 'whitespace-mode) ;; quit ----------------------------------------------------------------------- (evil-leader/set-key