From f96aeffbefed6ad407983a0de900e53978109efe Mon Sep 17 00:00:00 2001
From: Wojciech Kozlowski <wk@wojciechkozlowski.eu>
Date: Wed, 18 Dec 2019 20:48:10 +0100
Subject: [PATCH] Update eyebrowse modeline segment

---
 modules/emacs.el    |  2 --
 modules/modeline.el | 19 ++++++++++++-------
 2 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/modules/emacs.el b/modules/emacs.el
index 4404e2b..fc83811 100644
--- a/modules/emacs.el
+++ b/modules/emacs.el
@@ -443,8 +443,6 @@
 
   (use-package eyebrowse
     :after perspective
-    :init
-    (setq eyebrowse-keymap-prefix (kbd "C-x C-x"))
     :config
     (require 'eyepersp)
     (setq eyebrowse-default-workspace-slot 0)
diff --git a/modules/modeline.el b/modules/modeline.el
index b44007d..235d139 100644
--- a/modules/modeline.el
+++ b/modules/modeline.el
@@ -75,13 +75,18 @@
     (defun emodule/modeline-eyebrowse ()
       "Return the currently active eyebrowse workspace."
       (if (bound-and-true-p eyebrowse-mode)
-          (let* ((num (eyebrowse--get 'current-slot))
-                 (tag (when num
-                        (nth 2 (assoc num (eyebrowse--get 'window-configs)))))
-                 (str (if (and tag (< 0 (length tag)))
-                          tag
-                        (when num (int-to-string num)))))
-             (propertize str 'face 'eyebrowse-mode-line-active))
+          (let* ((cur (eyebrowse--get 'current-slot))
+                 (all (mapcar 'car (eyebrowse--get 'window-configs)))
+                 strs)
+            (setq strs
+                  (mapcar (lambda (el)
+                            (if (= cur el)
+                                (propertize (int-to-string el)
+                                            'face
+                                            'eyebrowse-mode-line-active)
+                              (int-to-string el)))
+                          all))
+            (apply 'concat strs))
         ""))
 
     (doom-modeline-def-segment emodule/modeline-eyebrowse-segment