Made code less surprising

2014-09-01 21:25:41 +02:00
parent e0b05a9b64
commit 0b5316b4f8
1 changed files with 7 additions and 6 deletions
--- a/eyebrowse.el
+++ b/eyebrowse.el
@ -264,12 +264,13 @@ last window config."
             (or (eq eyebrowse-mode-line-style 'always)
                 (and (eq eyebrowse-mode-line-style 'smart)
                      (> (length window-configs) 1))))
-        (s-concat left-delimiter
-                  (s-join separator
-                          (-replace-at (-elem-index current-slot
-                                                    window-config-slots)
-                                       active-item window-config-slots))
-                  right-delimiter)
+        (s-concat
+         left-delimiter
+         (s-join separator
+                 (-replace-at (-elem-index (number-to-string current-slot)
+                                           window-config-slots)
+                              active-item window-config-slots))
+         right-delimiter)
      "")))

 ;; --- public functions ------------------------------------------------------