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(-)
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