From c12f6b85c854f047ed5760b8cf9264f0041c2272 Mon Sep 17 00:00:00 2001 From: justbur Date: Thu, 28 Jan 2016 08:27:41 -0500 Subject: [PATCH] transient-state: Add .spacemacs var to hide color guide --- core/core-dotspacemacs.el | 3 +++ core/core-transient-state.el | 4 +++- core/templates/.spacemacs.template | 2 ++ 3 files changed, 8 insertions(+), 1 deletion(-) diff --git a/core/core-dotspacemacs.el b/core/core-dotspacemacs.el index bc1a51054..87fa52b94 100644 --- a/core/core-dotspacemacs.el +++ b/core/core-dotspacemacs.el @@ -221,6 +221,9 @@ can be toggled through `toggle-transparency'.") transparency level of a frame when it's inactive or deselected. Transparency can be toggled through `toggle-transparency'.") +(defvar dotspacemacs-show-transient-state-color-guide t + "If non nil show the color guide hint for transient state keys.") + (defvar dotspacemacs-mode-line-unicode-symbols t "If non nil unicode symbols are displayed in the mode-line (eg. for lighters)") diff --git a/core/core-transient-state.el b/core/core-transient-state.el index 154212417..d032c1665 100644 --- a/core/core-transient-state.el +++ b/core/core-transient-state.el @@ -116,7 +116,9 @@ used." (list 'concat (propertize ,(concat title "\n") 'face 'spacemacs-transient-state-title-face) - ,hint-var "\n\n" guide)))) + "\n" ,hint-var + (when dotspacemacs-show-transient-state-color-guide + (concat "\n" guide)))))) ,@bindkeys))))) (provide 'core-transient-state) diff --git a/core/templates/.spacemacs.template b/core/templates/.spacemacs.template index 3387376f2..9a3a517bd 100644 --- a/core/templates/.spacemacs.template +++ b/core/templates/.spacemacs.template @@ -201,6 +201,8 @@ values." ;; the transparency level of a frame when it's inactive or deselected. ;; Transparency can be toggled through `toggle-transparency'. (default 90) dotspacemacs-inactive-transparency 90 + ;; If non nil show the color guide hint for transient state keys + dotspacemacs-show-transient-state-color-guide t ;; If non nil unicode symbols are displayed in the mode line. (default t) dotspacemacs-mode-line-unicode-symbols t ;; If non nil smooth scrolling (native-scrolling) is enabled. Smooth