Add perspectives support

spaceline-config.el

@@ -30,7 +30,8 @@ ADDITIONAL-SEGMENTS are inserted on the right, between `global' and
 `buffer-position'."
   (spaceline-install
 
-   '(((workspace-number window-number)
+   '((((persp-name :fallback workspace-number)
+       window-number)
       :fallback evil-state
       :separator "|"
       :face highlight-face)
@@ -68,7 +69,8 @@ ADDITIONAL-SEGMENTS are inserted on the right, between `global' and
 `buffer-position'."
   (spaceline-install
 
-   '(((((workspace-number window-number) :separator "|")
+   '((((((persp-name :fallback workspace-number)
+         window-number) :separator "|")
        buffer-modified
        buffer-size)
       :face highlight-face)

spaceline-segments.el

@@ -186,7 +186,8 @@ Supports both Emacs and Evil cursor conventions."
 (defvar spaceline--helm-buffer-ids
   '(("*helm*" . "HELM")
     ("*helm M-x*" . "HELM M-x")
-    ("*swiper*" . "SWIPER"))
+    ("*swiper*" . "SWIPER")
+    ("*Projectile Perspectives*" . "HELM Projectile Perspectives"))
   "Alist of custom helm buffer names to use.")
 (spaceline-define-segment helm-buffer-id
   "Helm session identifier."
@@ -350,6 +351,15 @@ enabled."
       str))
   :when (bound-and-true-p eyebrowse-mode))
 
+(spaceline-define-segment persp-name
+  "The current perspective name."
+  (let ((name (persp-curr-name)))
+    (if (file-directory-p name)
+        (file-name-nondirectory (directory-file-name name))
+      name))
+  :when (and (bound-and-true-p persp-mode)
+             (persp-curr-name)))
+
 (defface spaceline-flycheck-error
   '((t (:foreground "#FC5C94" :distant-foreground "#A20C41")))
   "Face for flycheck error feedback in the modeline."