alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add option to show only current config in mode line (#102)

Browse Source 
* Add option to show only current config in mode line
This commit is contained in:
Yiufung Cheong
2019-03-22 17:33:20 +08:00
committed by Vasilij Schneidermann
parent a11c904486
commit 52e160997a
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
eyebrowse.el
View File

@ -95,10 +95,13 @@ nil, 'hide: Don't show at all.
'smart: Hide when only one window config. 'smart: Hide when only one window config.
'current: Only show current config.
t, 'always: Always show." t, 'always: Always show."
:type '(choice (const :tag "Hide" hide) :type '(choice (const :tag "Hide" hide)
(const :tag "Smart" smart) (const :tag "Smart" smart)
(const :tag "Always" always)) (const :tag "Always" always)
(const :tag "Current" current))
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-wrap-around nil (defcustom eyebrowse-wrap-around nil
@ -607,7 +610,9 @@ will be set up with `eyebrowse-setup-evil-keys' as well."
(separator (propertize eyebrowse-mode-line-separator (separator (propertize eyebrowse-mode-line-separator
'face 'eyebrowse-mode-line-separator)) 'face 'eyebrowse-mode-line-separator))
(current-slot (eyebrowse--get 'current-slot)) (current-slot (eyebrowse--get 'current-slot))
(window-configs (eyebrowse--get 'window-configs))) (window-configs (if (eq eyebrowse-mode-line-style 'current)
(list (assoc current-slot (eyebrowse--get 'window-configs)))
(eyebrowse--get 'window-configs))))
(if (and eyebrowse-mode-line-style (if (and eyebrowse-mode-line-style
(not (eq eyebrowse-mode-line-style 'hide)) (not (eq eyebrowse-mode-line-style 'hide))
(or (and (not (eq eyebrowse-mode-line-style 'smart)) (or (and (not (eq eyebrowse-mode-line-style 'smart))