From 28a1b50cdbca2b3fbc45ba6a8cdbfd9b84a6c4c0 Mon Sep 17 00:00:00 2001 From: Muneeb Shaikh Date: Thu, 3 Mar 2016 17:10:42 +0530 Subject: [PATCH] eyebrowse: highlight current workspace in transient state --- layers/+window-management/eyebrowse/packages.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/layers/+window-management/eyebrowse/packages.el b/layers/+window-management/eyebrowse/packages.el index a832aed04..d92951802 100644 --- a/layers/+window-management/eyebrowse/packages.el +++ b/layers/+window-management/eyebrowse/packages.el @@ -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