From e6b5e17a394cc8fdd827670b8fa1a81043c8a951 Mon Sep 17 00:00:00 2001 From: John Turner Date: Sun, 3 Jul 2022 21:29:51 -0400 Subject: init --- .../display-buffer/config-display-buffer-alist.el | 23 ++++++++++++++++++++++ config/display-buffer/config-display-buffer.el | 5 +++++ 2 files changed, 28 insertions(+) create mode 100644 config/display-buffer/config-display-buffer-alist.el create mode 100644 config/display-buffer/config-display-buffer.el (limited to 'config/display-buffer') diff --git a/config/display-buffer/config-display-buffer-alist.el b/config/display-buffer/config-display-buffer-alist.el new file mode 100644 index 0000000..caf2229 --- /dev/null +++ b/config/display-buffer/config-display-buffer-alist.el @@ -0,0 +1,23 @@ +(defvar config-display-buffer-gaps-width 20) + +(defun config-display-buffer-which-side () + (if (> (+ (frame-pixel-width) config-display-buffer-gaps-width) (/ (x-display-pixel-width) 2)) + 'right + 'bottom)) + +(defun config-display-buffer-update-alist (_) + (let ((side (config-display-buffer-which-side))) + (setq display-buffer-alist `(("\\*Flymake diagnostics.*" + (display-buffer-in-side-window) + (side . ,side) + (window-height . 15) + (window-width . 75) + ("\*Flycheck errors\*" + (display-buffer-in-side-window) + (side . ,side) + (window-height . 15) + (window-width . 75))))))) + +(add-hook 'after-make-frame-functions 'config-display-buffer-update-alist) + +(add-hook 'window-size-change-functions 'config-display-buffer-update-alist) diff --git a/config/display-buffer/config-display-buffer.el b/config/display-buffer/config-display-buffer.el new file mode 100644 index 0000000..c36d35f --- /dev/null +++ b/config/display-buffer/config-display-buffer.el @@ -0,0 +1,5 @@ +(setq display-buffer-base-action '(display-buffer-same-window display-buffer-reuse-window)) + +(load "config-display-buffer-alist") + +(provide 'config-display-buffer) -- cgit v1.2.3