From 278d694d9971d20e9cf393564a33e8915186418b Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Sat, 9 Mar 2024 14:57:07 +0800
Subject: view: Adjust the buffer for listing processes

* view-conf.el (durand-view-process): Fit the window to buffer with a
  maximal height of 0.3 * total height, so that this buffer does not
  disturb the main view.
---
 view-conf.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'view-conf.el')

diff --git a/view-conf.el b/view-conf.el
index 09f70ee..2726526 100644
--- a/view-conf.el
+++ b/view-conf.el
@@ -162,7 +162,9 @@ connected: %s, cycles: %d, condition: %s"
   (interactive "P")
   (cond
    ((equal arg (list 4))
-    (list-processes))
+    (list-processes)
+    (let ((window (get-buffer-window "*Process List*")))
+      (cond (window (durand-fit-window-to-buffer-with-max window)))))
    ((equal arg (list 16))
     (proced))
    ((message "%s" (process-list)))))
-- 
cgit v1.2.3-18-g5258