eyebrowse: highlight current workspace in transient state
This commit is contained in:
parent
cc544b1654
commit
28a1b50cdb
|
@ -106,13 +106,15 @@ workspace, preferably in the current window."
|
||||||
|
|
||||||
|
|
||||||
(defun spacemacs//workspace-format-name (workspace)
|
(defun spacemacs//workspace-format-name (workspace)
|
||||||
(let ((current (eq (eyebrowse--get 'current-slot) (car workspace)))
|
(let* ((current (eq (eyebrowse--get 'current-slot) (car workspace)))
|
||||||
(name (nth 2 workspace))
|
(name (nth 2 workspace))
|
||||||
(number (car workspace)))
|
(number (car workspace))
|
||||||
(concat
|
(caption (if (< 0 (length name))
|
||||||
(if current "[" "")
|
name
|
||||||
(if (< 0 (length name)) name (int-to-string number))
|
(int-to-string number))))
|
||||||
(if current "]" ""))))
|
(if current
|
||||||
|
(propertize (concat "[" caption "]") 'face 'warning)
|
||||||
|
caption)))
|
||||||
|
|
||||||
(defun spacemacs//workspaces-ms-list ()
|
(defun spacemacs//workspaces-ms-list ()
|
||||||
"Return the list of workspaces for the workspacae
|
"Return the list of workspaces for the workspacae
|
||||||
|
|
Loading…
Reference in a new issue