diff options
Diffstat (limited to '.emacs.d/lisp/init-project.el')
| -rw-r--r-- | .emacs.d/lisp/init-project.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/.emacs.d/lisp/init-project.el b/.emacs.d/lisp/init-project.el index 734286b..6877626 100644 --- a/.emacs.d/lisp/init-project.el +++ b/.emacs.d/lisp/init-project.el @@ -78,11 +78,12 @@ the current perspective." (let ((b (get-buffer (if (consp b) (car b) b)))) (eq (buffer-local-value 'major-mode b) mode))))) (pop-to-buffer (persp-read-buffer "Buffer: " nil t pred)))) - (defun persp-previous-buffer-same-mode () + (defun persp-previous-buffer-same-mode (&optional switch-to-buffer-function) "Switch to the previous buffer in the current perspective, with the same major -mode as the current buffer (or do nothing)" +mode as the current buffer (or do nothing)." (interactive) - (let* ((persp-buffers (seq-filter 'persp-is-current-buffer (buffer-list))) + (let* ((switch-buffer-fn (or switch-to-buffer-function #'switch-to-buffer)) + (persp-buffers (seq-filter 'persp-is-current-buffer (buffer-list))) (mode major-mode) (mode-pred (lambda (b) (let ((b (get-buffer (if (consp b) (car b) b)))) @@ -91,7 +92,11 @@ mode as the current buffer (or do nothing)" (not (get-buffer-window b)))))) (persp-buffers-in-mode (seq-filter mode-pred persp-buffers))) (when (not (seq-empty-p persp-buffers-in-mode)) - (switch-to-buffer (car persp-buffers-in-mode))))) + (funcall switch-buffer-fn (car persp-buffers-in-mode))))) + (defun persp-previous-buffer-same-mode-other-window () + "Variant of persp-previous-buffer-same-mode, which opens in other window." + (interactive) + (persp-previous-buffer-same-mode #'switch-to-buffer-other-window)) (defun persp-current-project-root () "Return the current project root, falling back to finding it by the perpsective" (if-let (project (project-current)) @@ -122,6 +127,7 @@ mode as the current buffer (or do nothing)" :bind ("C-x p p" . switch-project) ("C-x C-b" . persp-previous-buffer-same-mode) + ("C-x 4 C-b" . persp-previous-buffer-same-mode-other-window) ("C-x C-S-b" . persp-switch-buffer-same-mode) ("C-c p p" . persp-switch-last) ("C-c p ." . persp-switch-quick)) |