diff options
| author |  Tom Willemse | 2015-05-09 19:14:14 +0200 |
|---|---|---|
| committer | Tom Willemse | 2015-05-09 19:14:14 +0200 |
| commit | 4d36ff955185b01a9b2f31fdd30fd98bf8adc61d (patch) | |
| tree | bffbdc0d0289675a8675bce222109d2c5ed35bb8 /emacs/.emacs.d/init.el | |
| parent | 96e30cf2a0be20d6881aea05eff0bf09472d0ae2 (diff) | |
| download | dotfiles-4d36ff955185b01a9b2f31fdd30fd98bf8adc61d.tar.gz dotfiles-4d36ff955185b01a9b2f31fdd30fd98bf8adc61d.zip | |
Update buffer display settings
Diffstat (limited to 'emacs/.emacs.d/init.el')
| -rw-r--r-- | emacs/.emacs.d/init.el | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 2d6df93..76e5182 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -439,6 +439,10 @@ PLIST contains all the pertinent ifnormation." (c-set-offset 'arglist-close '0) (setq-local fci-rule-column 80)) +(defun oni:pop-to-buffer-in-side-window (buffer alist) + (display-buffer-in-side-window buffer alist) + (select-window (get-buffer-window buffer))) + (defun oni:print-keymap (keymap) "Recursively print KEYMAP with keys as characters." (mapcar (lambda (itm) @@ -1283,12 +1287,19 @@ from myaethon2.core.decorators import ( (stante-after "window" (setq split-height-threshold 40) + (add-to-list 'display-buffer-alist + `(,(rx bol "*" (or (and (optional (one-or-more any) "-") "scratch") + (and "magit: " (one-or-more any))) "*" eol) + display-buffer-same-window)) + (add-to-list 'display-buffer-alist + `(,(rx bol "*" (or "Flycheck errors*" + (and (or "ielm" "eshell") "*" eol))) + oni:pop-to-buffer-in-side-window)) + (add-to-list 'display-buffer-alist + `(,(rx bol "*server*" eol) display-buffer-in-side-window)) (add-to-list 'display-buffer-alist - '("^\\*\\(?:.+-\\)?scratch\\*$" display-buffer-same-window)) - (add-to-list - 'display-buffer-alist - '("^\\*magit: .*\\*$" display-buffer-same-window))) + '("^\\*Help\\*$" display-buffer-in-side-window))) (stante-after woman (setq woman-fill-column 72)) |