perspective

home.org

@@ -795,6 +795,7 @@ These are just some general settings that apply everywhere. First, a few package
         mixed-pitch
         ace-window
         popper
+        perspective
       ];
       extraConfig = builtins.readFile ./emacs-global.el;
     };
@@ -941,11 +942,12 @@ Set up a few project- / workspace-related key bindings.
 
 #+BEGIN_SRC elisp
   (bind-keys ("s-f" . project-find-file)
-             ("s-F" . project-switch-project))
+             ("s-F" . project-switch-project)
+             ("s-s" . persp-switch))
 
-  (with-eval-after-load 'tab-bar
+  ;; (with-eval-after-load 'tab-bar
-    (bind-keys :map tab-bar-mode-map
+  ;;   (bind-keys :map tab-bar-mode-map
-               ("s-s" . tab-bar-switch-to-tab)))
+  ;;              ("s-s" . tab-bar-switch-to-tab)))
 #+END_SRC
 
 Don't run a server. I'm not using this, I can always turn it back on if I need to.
@@ -1050,6 +1052,11 @@ content to be.
   (bind-keys ("C-z" . popper-toggle)
              ("C-;" . popper-cycle))
 
+  (require 'perspective)
+  (setopt persp-mode-prefix-key (kbd "C-x t"))
+  (setopt persp-show-modestring nil)
+  (persp-mode)
+
   (setq display-buffer-alist
         '(((or "\\*Flymake diagnostics .*"
                "\\*Embark Export: .*"
@@ -1239,7 +1246,7 @@ Just "silently" wrap when searching at the bottom of a document.
     programs.emacs = {
       enable = true;
       extraPackages = epkgs: with epkgs; [
-        bufferlo
+        # bufferlo
       ];
       extraConfig = builtins.readFile ./emacs-workflow.el;
     };
@@ -1247,23 +1254,24 @@ Just "silently" wrap when searching at the bottom of a document.
 #+END_SRC
 
 #+BEGIN_SRC elisp
-  (bufferlo-mode)
+  ;; (bufferlo-mode)
 
-  (setopt bufferlo-include-buried-buffers nil)
+  ;; (setopt bufferlo-include-buried-buffers nil)
 
-  (with-eval-after-load 'bufferlo
+  ;; (with-eval-after-load 'bufferlo
-    (setq mode-line-misc-info
+  ;;   (setq mode-line-misc-info
-          (assq-delete-all 'bufferlo-mode mode-line-misc-info)))
+  ;;         (assq-delete-all 'bufferlo-mode mode-line-misc-info)))
 
-  (defun my/bury-or-kill-buffer ()
+  ;; (defun my/bury-or-kill-buffer ()
-    (interactive)
+  ;;   (interactive)
-    (bury-buffer)
+  ;;   (bury-buffer)
-    (bufferlo-kill-orphan-buffers))
+  ;;   (bufferlo-kill-orphan-buffers))
 
   (bind-keys
-   ("s-b" . bufferlo-switch-to-buffer)
+   ("s-b" . consult-buffer)
-   ("C-x t 0" . bufferlo-tab-close-kill-buffers)
+   ;; ("C-x t 0" . bufferlo-tab-close-kill-buffers)
-   ("C-x k" . my/bury-or-kill-buffer))
+   ;; ("C-x k" . my/bury-or-kill-buffer)
+   )
 #+END_SRC
 
 ** Language Support
@@ -1696,7 +1704,7 @@ for completion. That makes it really annoying to use; don't use yasnippet with e
    ("s-B" . consult-buffer)
    ("C-x 4 b" . consult-buffer-other-window)
    ("C-x 5 b" . consult-buffer-other-frame)
-   ("C-x t b" . consult-buffer-other-tab)
+   ;; ("C-x t b" . consult-buffer-other-tab)
    ("C-x r b" . consult-bookmark)
    ("C-x p b" . consult-project-buffer)
 
@@ -1741,9 +1749,12 @@ for completion. That makes it really annoying to use; don't use yasnippet with e
      consult-ripgrep consult-git-grep consult-grep consult-man
      consult-bookmark consult-recent-file consult-xref
      consult-source-bookmark consult-source-file-register
-     consult-source-recent-file consult-source-project-recent-file
+     consult-source-recent-file
+     consult-source-buffer :hidden t :default nil
      ;; :preview-key "M-."
-     :preview-key '(:debounce 0.4 any)))
+     consult-source-project-recent-file
+     :preview-key '(:debounce 0.4 any))
+    (add-to-list 'consult-buffer-sources persp-consult-source))
 
   (setopt consult-narrow-key "<") ;; "C-+"