Add persp-mode (disabled)

init.el

@@ -382,6 +382,31 @@
   :config
   (dirvish-override-dired-mode))
 
+(use-package persp-mode
+  :if nil
+  :bind ("C-c p" . persp-key-map)
+  :custom
+  (persp-keymap-prefix nil)
+  :init
+  (when (daemonp)
+    (require 'persp-mode))
+  :config
+  (with-eval-after-load 'consult
+    (consult-customize consult--source-buffer :hidden t :default nil)
+    (add-to-list 'consult-buffer-sources
+                 (list :name "Perspective"
+                       :narrow ?s
+                       :category 'buffer
+                       :state #'consult--buffer-state
+                       :history 'buffer-name-history
+                       :default t
+                       :items (lambda ()
+                                (consult--buffer-query :sort 'visibility
+                                                       :predicate (lambda (buf)
+                                                                    (memq buf (persp-buffer-list)))
+                                                       :as #'buffer-name)))))
+  (persp-mode))
+
 (use-package alert
   :ensure nil
   :custom