TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New dotvariable to control switch-to-buffer behavior 

With a nil value for dotspacemacs-switch-to-buffer-prefers-purpose,
switch-to-buffer prefers using the current window, same as vanilla
Emacs. With a non-nil value, switch-to-buffer prefers another window
with the same purpose as the buffer. This affects actions like
spacemacs/alternate-buffer, and opening buffers from Dired.
This commit is contained in:
bmag 2016-10-18 19:32:33 +03:00 committed by syl20bnr
parent 452931ba2d
commit e5c9632678
3 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/core-dotspacemacs.el
View File

@ -251,6 +251,14 @@ key sequence. Setting this variable is equivalent to setting
right, and right-then-bottom. The last one will display on the
right if possible and fallback to bottom if not.")
(defvar dotspacemacs-switch-to-buffer-prefers-purpose nil
"Control where `switch-to-buffer' displays the buffer.
If nil, `switch-to-buffer' displays the buffer in the current
window even if another same-purpose window is available. If non
nil, `switch-to-buffer' displays the buffer in a same-purpose
window even if the buffer can be displayed in the current
window.")
(defvar dotspacemacs-loading-progress-bar t
"If non nil a progress bar is displayed when spacemacs is loading. This
may increase the boot time on some systems and emacs builds, set it to nil

6
core/templates/.spacemacs.template
View File

@ -214,6 +214,12 @@ values."
;; right; if there is insufficient space it displays it at the bottom.
;; (default 'bottom)
dotspacemacs-which-key-position 'bottom
;; Control where `switch-to-buffer' displays the buffer. If nil,
;; `switch-to-buffer' displays the buffer in the current window even if
;; another same-purpose window is available. If non nil, `switch-to-buffer'
;; displays the buffer in a same-purpose window even if the buffer can be
;; displayed in the current window. (default nil)
dotspacemacs-switch-to-buffer-prefers-purpose nil
;; If non nil a progress bar is displayed when spacemacs is loading. This
;; may increase the boot time on some systems and emacs builds, set it to
;; nil to boost the loading time. (default t)

19
layers/+spacemacs/spacemacs-purpose/packages.el
View File

@ -109,6 +109,25 @@
(purpose-mode))
:config
(progn
;; change `switch-to-buffer' display preferences according to
;; `dotspacemacs-switch-to-buffer-prefers-purpose'. This affects actions
;; like `spacemacs/alternate-buffer', and opening buffers from Dired
(setcdr (assq 'switch-to-buffer purpose-action-sequences)
(if dotspacemacs-switch-to-buffer-prefers-purpose
'(purpose-display-reuse-window-buffer
purpose-display-reuse-window-purpose
purpose-display-maybe-same-window
purpose-display-maybe-other-window
purpose-display-maybe-other-frame
purpose-display-maybe-pop-up-window
purpose-display-maybe-pop-up-frame)
'(purpose-display-maybe-same-window
purpose-display-reuse-window-buffer
purpose-display-reuse-window-purpose
purpose-display-maybe-other-window
purpose-display-maybe-other-frame
purpose-display-maybe-pop-up-window
purpose-display-maybe-pop-up-frame)))
;; overriding `purpose-mode-map' with empty keymap, so it doesn't conflict
;; with original `C-x C-f', `C-x b', etc. and `semantic' key bindings.
(setcdr purpose-mode-map nil)