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

Simplify modeline code

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-05-06 09:14:18 +02:00
parent 7023bcd65b
commit 0f6b57d8b4
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -457,18 +457,16 @@ is detected, it will bind gt, gT, gc and zx, too."
(active-item (propertize (number-to-string current-slot) (active-item (propertize (number-to-string current-slot)
'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 (lambda (item) (window-config-slots (mapcar 'car window-configs)))
(number-to-string (car item)))
window-configs)))
(if (and (not (eq eyebrowse-mode-line-style 'hide)) (if (and (not (eq eyebrowse-mode-line-style 'hide))
(or (eq eyebrowse-mode-line-style 'always) (or (eq eyebrowse-mode-line-style 'always)
(and (eq eyebrowse-mode-line-style 'smart) (and (eq eyebrowse-mode-line-style 'smart)
(> (length window-configs) 1)))) (> (length window-configs) 1))))
(concat (concat
left-delimiter left-delimiter
(mapconcat 'identity (mapconcat
(-replace (number-to-string current-slot) (lambda (n) (if (= n current-slot) active-item (number-to-string n)))
active-item window-config-slots) window-config-slots
separator) separator)
right-delimiter) right-delimiter)
""))) "")))