branch: elpa/golden-ratio
commit 3d93baf3c01e8f1b72ddc8b7376db906a9c3e74e
Merge: 007911d8a4 656117e490
Author: Roman Gonzalez <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #92 from shouya/minimal-change
Support resizing only when the change is significant
---
golden-ratio.el | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/golden-ratio.el b/golden-ratio.el
index 28a637d939..75572f0384 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 1
+ "Minimal width change needed to trigger actual window resizing."
+ :group 'golden-ratio
+ :type 'integer)
+
+(defcustom golden-ratio-minimal-height-change 1
+ "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 ()
