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

Made code less surprising

Browse Source
This commit is contained in:
Vasilij Schneidermann
2014-09-01 21:25:41 +02:00
parent e0b05a9b64
commit 0b5316b4f8
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
eyebrowse.el
View File

@ -264,9 +264,10 @@ last window config."
(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))))
(s-concat left-delimiter (s-concat
left-delimiter
(s-join separator (s-join separator
(-replace-at (-elem-index current-slot (-replace-at (-elem-index (number-to-string current-slot)
window-config-slots) window-config-slots)
active-item window-config-slots)) active-item window-config-slots))
right-delimiter) right-delimiter)