Configure window stuff

1 files changed, 45 insertions, 0 deletions

@@ -312,6 +312,51 @@ from [[https://stackoverflow.com/questions/23659909/reverse-evaluation-order-of-
     (winner-mode +1))
 #+end_src
 
+*** Windmove
+
+ #+begin_src emacs-lisp
+   (cuss windmove-create-window t
+         "Create windows in a direction if they don't exist.")
+   (cuss windomove-wrap-around t
+         "Wrap window movements around frame edges.")
+
+   (windmove-default-keybindings)
+ #+end_src
+
+*** Pop some buffers up in the same window
+
+from [[https://github.com/link0ff/emacs-init][link0ff]].
+
+#+begin_src emacs-lisp
+  (push `(,(rx bos
+               "*"
+               (or "Help" "Apropos" "Colors" "Buffer List" "Command History"
+                   "Dictionary" "Locate" "Messages" "Proced" "eww" "snd"
+                   (and "gud-" (+ (any "a-z0-9")))
+                   "compilation" "grep" "erlang" "haskell"
+                   ;; Handle both "*shell*" and e.g. "*emacs-shell*"
+                   ;; generated by `project-shell':
+                   (and (? (* nonl) "-") "shell")
+                   "Shell Command Output"
+                   (and "SQL: " (+ (any "A-za-z")))
+                   "Diff" "vc-dir" "vc-log" "vc-search-log")
+               "*"
+               ;; Uniquifed buffer name with optional suffix in angle brackets
+               (? (and "<" (+ (not (any ">"))) ">"))
+               eos)
+          display-buffer-same-window
+          (inhibit-same-window . nil))
+        display-buffer-alist)
+
+  (defun display-buffer-from-help-p (_buffer-name _action)
+    (unless current-prefix-arg
+      (with-current-buffer (window-buffer)
+        (eq major-mode 'help-mode))))
+
+  (push '(display-buffer-from-help-p display-buffer-same-window)
+        display-buffer-alist)
+#+end_src
+
 ** Startup
 
 #+begin_src emacs-lisp