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

13
eyebrowse.el
View File

@ -264,12 +264,13 @@ 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
(s-join separator left-delimiter
(-replace-at (-elem-index current-slot (s-join separator
window-config-slots) (-replace-at (-elem-index (number-to-string current-slot)
active-item window-config-slots)) window-config-slots)
right-delimiter) active-item window-config-slots))
right-delimiter)
""))) "")))
;; --- public functions ------------------------------------------------------ ;; --- public functions ------------------------------------------------------