diff options
author | John Turner <jturner.usa@gmail.com> | 2022-07-03 21:29:51 -0400 |
---|---|---|
committer | John Turner <jturner.usa@gmail.com> | 2022-07-03 21:29:51 -0400 |
commit | e6b5e17a394cc8fdd827670b8fa1a81043c8a951 (patch) | |
tree | 30754c43c34a336053f893fa26ba8bf3b1876669 /config/display-buffer/config-display-buffer-alist.el | |
download | emacs.d-e6b5e17a394cc8fdd827670b8fa1a81043c8a951.tar.gz |
init
Diffstat (limited to 'config/display-buffer/config-display-buffer-alist.el')
-rw-r--r-- | config/display-buffer/config-display-buffer-alist.el | 23 |
1 files changed, 23 insertions, 0 deletions
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) |