TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

eyebrowse: highlight current workspace in transient state

Browse source
This commit is contained in:
Muneeb Shaikh 2016-03-03 17:10:42 +05:30 committed by Eivind Fonn
parent cc544b1654
commit 28a1b50cdb
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
layers/+window-management/eyebrowse/packages.el
View file

@ -106,13 +106,15 @@ workspace, preferably in the current window."
(defun spacemacs//workspace-format-name (workspace)
(let ((current (eq (eyebrowse--get 'current-slot) (car workspace)))
(name (nth 2 workspace))
(number (car workspace)))
(concat
(if current "[" "")
(if (< 0 (length name)) name (int-to-string number))
(if current "]" ""))))
(let* ((current (eq (eyebrowse--get 'current-slot) (car workspace)))
(name (nth 2 workspace))
(number (car workspace))
(caption (if (< 0 (length name))
name
(int-to-string number))))
(if current
(propertize (concat "[" caption "]") 'face 'warning)
caption)))
(defun spacemacs//workspaces-ms-list ()
"Return the list of workspaces for the workspacae