[nongnu] elpa/golden-ratio 1325ecac07 92/95: support minimal change

[ELPA Syncer]

branch: elpa/golden-ratio
commit 1325ecac07a14c3566715d3ad6b9091a4d4950d8
Author: Shou Ya <shouya@users.noreply.github.com>
Commit: Shou Ya <shouya@users.noreply.github.com>

    support minimal change
---
 golden-ratio.el | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/golden-ratio.el b/golden-ratio.el
index 28a637d939..201cf0f270 100644
--- a/golden-ratio.el
+++ b/golden-ratio.el
@@ -92,6 +92,16 @@ will prevent the window to be resized to the golden ratio."
   :type '(repeat string)
   :group 'golden-ratio)
 
+(defcustom golden-ratio-minimal-width-change 0
+  "Minimal width change needed to trigger actual window resizing."
+  :group 'golden-ratio
+  :type 'integer)
+
+(defcustom golden-ratio-minimal-height-change 0
+  "Minimal height change needed to trigger actual window resizing."
+  :group 'golden-ratio
+  :type 'integer)
+
 ;;; Compatibility
 ;;
 (unless (fboundp 'window-resizable-p)
@@ -129,9 +139,11 @@ will prevent the window to be resized to the golden ratio."
   (with-selected-window (or window (selected-window))
     (let ((nrow  (floor (- (first  dimensions) (window-height))))
           (ncol  (floor (- (second dimensions) (window-width)))))
-      (when (window-resizable-p (selected-window) nrow)
+      (when (and (> nrow golden-ratio-minimal-height-change)
+                 (window-resizable-p (selected-window) nrow))
         (enlarge-window nrow))
-      (when (window-resizable-p (selected-window) ncol t)
+      (when (and (> ncol golden-ratio-minimal-width-change)
+                 (window-resizable-p (selected-window) ncol t))
         (enlarge-window ncol t)))))
 
 (defun golden-ratio-exclude-major-mode-p ()