perspective

emacs/feature/feature-project.el

@@ -8,6 +8,7 @@
 ;;; Code:
 
 (require 'module-projectile)
+(require 'module-perspective)
 
 (provide 'feature-project)
 ;;; feature-project.el ends here.

emacs/module/module-perspective.el

@@ -0,0 +1,44 @@
+;;; module-perspective.el --- workspace management
+;;;
+;;; Commentary:
+;;;
+;;; Declutter buffer lists.
+;;;
+;;; Code:
+
+(require 'module-pkg)
+(pkg/require 'perspective)
+(pkg/require 'persp-projectile)
+
+(persp-mode +1)
+(persp-turn-on-modestring)
+
+
+(defun my-persp-save ()
+  (persp-state-save "~/.emacs.d/perspectives"))
+
+(defun my-persp-load ()
+  (persp-state-load "~/.emacs.d/perspectives"))
+
+
+(global-set-key (kbd "C-x k") 'persp-kill-buffer*)
+(global-set-key (kbd "C-x x s") 'persp-switch)
+(global-set-key (kbd "C-x x k") 'persp-kill)
+(global-set-key (kbd "C-x x r") 'persp-rename)
+(global-set-key (kbd "C-x x n") 'persp-next)
+(global-set-key (kbd "C-x x p") 'persp-prev)
+(global-set-key (kbd "C-x C-b") 'persp-ibuffer)
+
+(define-key projectile-mode-map (kbd "C-x p s") 'projectile-persp-switch-project)
+
+(autoload 'projectile-project-root "projectile")
+(setq consult-project-root-function #'projectile-project-root)
+
+;; load and save perspectives on load and exit
+(add-hook 'kill-emacs-hook 'my-persp-save)
+(add-hook 'after-init-hook 'my-persp-load)
+
+(provide 'module-perspective)
+
+;;; module-projectile.el ends here.
+