commit 5132cf3d9d4630cd846acc32c67da76ff99bf534
parent 7ebc062f96bcdf41feee4655700acfd65fe418da
Author: Vincent Demeester <vincent@sbr.pm>
Date: Fri, 9 Feb 2024 13:04:08 +0100
Setup display-buffer-alist…
… with some functions from prot. Will have to make my own but :D
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
Diffstat:
2 files changed, 141 insertions(+), 1 deletion(-)
diff --git a/tools/emacs/config/config-buffers.el b/tools/emacs/config/config-buffers.el
@@ -89,7 +89,11 @@
"\\*Async Shell Command\\*"
help-mode
helpful-mode
- compilation-mode))
+ compilation-mode
+ flymake-diagnostics-buffer-mode
+ flymake-project-diagnostics-mode
+ Man-mode
+ woman-mode))
(popper-mode +1)
(popper-echo-mode +1))
diff --git a/tools/emacs/config/config-windows.el b/tools/emacs/config/config-windows.el
@@ -77,6 +77,142 @@
("S-C-<up>" . enlarge-window)))
;; -UseWindow
+;;;###autoload
+(defun prot-common-window-small-p ()
+ "Return non-nil if window is small.
+Check if the `window-width' or `window-height' is less than
+`split-width-threshold' and `split-height-threshold',
+respectively."
+ (or (and (numberp split-width-threshold)
+ (< (window-total-width) split-width-threshold))
+ (and (numberp split-height-threshold)
+ (> (window-total-height) split-height-threshold))))
+
+(defun prot-common-three-or-more-windows-p (&optional frame)
+ "Return non-nil if three or more windows occupy FRAME.
+If FRAME is non-nil, inspect the current frame."
+ (>= (length (window-list frame :no-minibuffer)) 3))
+
+(defun prot-window--get-display-buffer-below-or-pop ()
+ "Return list of functions for `prot-window-display-buffer-below-or-pop'."
+ (list
+ #'display-buffer-reuse-mode-window
+ (if (or (prot-common-window-small-p)
+ (prot-common-three-or-more-windows-p))
+ #'display-buffer-below-selected
+ #'display-buffer-pop-up-window)))
+
+(defun prot-window-display-buffer-below-or-pop (&rest args)
+ "Display buffer below current window or pop a new window.
+The criterion for choosing to display the buffer below the
+current one is a non-nil return value for
+`prot-common-window-small-p'.
+
+Apply ARGS expected by the underlying `display-buffer' functions.
+
+This as the action function in a `display-buffer-alist' entry."
+ (let ((functions (prot-window--get-display-buffer-below-or-pop)))
+ (catch 'success
+ (dolist (fn functions)
+ (when (apply fn args)
+ (throw 'success fn))))))
+
+(defvar prot-window-window-sizes
+ '( :max-height (lambda () (floor (frame-height) 3))
+ :min-height 10
+ :max-width (lambda () (floor (frame-width) 4))
+ :min-width 20)
+ "Property list of maximum and minimum window sizes.
+The property keys are `:max-height', `:min-height', `:max-width',
+and `:min-width'. They all accept a value of either a
+number (integer or floating point) or a function.")
+
+(defun prot-window--get-window-size (key)
+ "Extract the value of KEY from `prot-window-window-sizes'."
+ (when-let ((value (plist-get prot-window-window-sizes key)))
+ (cond
+ ((functionp value)
+ (funcall value))
+ ((numberp value)
+ value)
+ (t
+ (error "The value of `%s' is neither a number nor a function" key)))))
+
+(defun prot-window-select-fit-size (window &rest _)
+ "Select WINDOW and resize it.
+The resize pertains to the maximum and minimum values for height
+and width, per `prot-window-window-sizes'.
+
+Use this as the `body-function' in a `display-buffer-alist' entry."
+ (select-window window)
+ (fit-window-to-buffer
+ window
+ (prot-window--get-window-size :max-height)
+ (prot-window--get-window-size :min-height)
+ (prot-window--get-window-size :max-width)
+ (prot-window--get-window-size :min-width)))
+
+(defun prot-window-shell-or-term-p (buffer &rest _)
+ "Check if BUFFER is a shell or terminal.
+This is a predicate function for `buffer-match-p', intended for
+use in `display-buffer-alist'."
+ (when (string-match-p "\\*.*\\(e?shell\\|v?term\\).*" (buffer-name (get-buffer buffer)))
+ (with-current-buffer buffer
+ ;; REVIEW 2022-07-14: Is this robust?
+ (and (not (derived-mode-p 'message-mode 'text-mode))
+ (derived-mode-p 'eshell-mode 'shell-mode 'comint-mode 'fundamental-mode)))))
+
+(setq display-buffer-alist
+ `(;; Default to no window
+ ("\\`\\*Async Shell Command\\*\\'"
+ (display-buffer-no-window))
+ ("\\`\\*\\(Warnings\\|Compile-Log\\|Org Links\\)\\*\\'"
+ (display-buffer-no-window)
+ (allow-no-window . t))
+ ;; bottom side window
+ ("\\*Org \\(Select\\|Note\\)\\*" ; the `org-capture' key selection and `org-add-log-note'
+ (display-buffer-in-side-window)
+ (dedicated . t)
+ (side . bottom)
+ (slot . 0)
+ (window-parameters . ((mode-line-format . none))))
+ ;; bottom buffer (NOT side window)
+ ((or . ((derived-mode . flymake-diagnostics-buffer-mode)
+ (derived-mode . flymake-project-diagnostics-mode)
+ (derived-mode . messages-buffer-mode)
+ (derived-mode . backtrace-mode)))
+ (display-buffer-reuse-mode-window display-buffer-at-bottom)
+ (window-height . 0.3)
+ (dedicated . t)
+ (preserve-size . (t . t)))
+ ;; ((or . ((derived-mode . Man-mode)
+ ;; (derived-mode . woman-mode)
+ ;; "\\*\\(Man\\|woman\\).*"))
+ ;; (display-buffer-reuse-mode-window display-buffer-below-selected)
+ ;; (window-height . 0.3) ; note this is literal lines, not relative
+ ;; (dedicated . t)
+ ;; (preserve-size . (t . t)))
+ ;; below current window
+ ("\\(\\*Capture\\*\\|CAPTURE-.*\\)"
+ (display-buffer-reuse-mode-window display-buffer-below-selected))
+ ((derived-mode . reb-mode) ; M-x re-builder
+ (display-buffer-reuse-mode-window display-buffer-below-selected)
+ (window-height . 4) ; note this is literal lines, not relative
+ (dedicated . t)
+ (preserve-size . (t . t)))
+ ((or . ((derived-mode . occur-mode)
+ (derived-mode . grep-mode)
+ (derived-mode . Buffer-menu-mode)
+ (derived-mode . log-view-mode)
+ (derived-mode . help-mode) ; See the hooks for `visual-line-mode'
+ "\\*\\(|Buffer List\\|Occur\\|vc-change-log\\).*"
+ prot-window-shell-or-term-p
+ ,world-clock-buffer-name))
+ (prot-window-display-buffer-below-or-pop)
+ (dedicated . t)
+ (body-function . prot-window-select-fit-size))
+ ))
+
;; TODO: Move display-buffer-alist here
(provide 'config-windows)
