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

Extend modeline indicator to take nil and t

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-05-07 09:08:56 +02:00
parent a388d55188
commit 515487ab41
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -95,11 +95,11 @@ manager."
(defcustom eyebrowse-mode-line-style 'smart (defcustom eyebrowse-mode-line-style 'smart
"The mode line indicator style may be one of the following: "The mode line indicator style may be one of the following:
'hide: Don't show at all. nil, 'hide: Don't show at all.
'smart: Hide when only one window config. 'smart: Hide when only one window config.
'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))
@ -462,8 +462,10 @@ is detected, extra key bindings will be set up with
'face 'eyebrowse-mode-line-active)) 'face 'eyebrowse-mode-line-active))
(window-configs (eyebrowse--get 'window-configs)) (window-configs (eyebrowse--get 'window-configs))
(window-config-slots (mapcar 'car window-configs))) (window-config-slots (mapcar 'car window-configs)))
(if (and (not (eq eyebrowse-mode-line-style 'hide)) (if (and eyebrowse-mode-line-style
(or (eq eyebrowse-mode-line-style 'always) (not (eq eyebrowse-mode-line-style 'hide))
(or (and (not (eq eyebrowse-mode-line-style 'smart))
eyebrowse-mode-line-style)
(and (eq eyebrowse-mode-line-style 'smart) (and (eq eyebrowse-mode-line-style 'smart)
(> (length window-configs) 1)))) (> (length window-configs) 1))))
(concat (concat