From 4d36ff955185b01a9b2f31fdd30fd98bf8adc61d Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 9 May 2015 19:14:14 +0200
Subject: Update buffer display settings

---
 emacs/.emacs.d/init.el | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

(limited to 'emacs')

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))
-- 
cgit v1.2.3-54-g00ecf