emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/golden-ratio e66acd10ae 41/95: * golden-ratio.el (window-h


From: ELPA Syncer
Subject: [nongnu] elpa/golden-ratio e66acd10ae 41/95: * golden-ratio.el (window-height-after-balance, window-width-after-balance): Prefix with golden-ratio.
Date: Thu, 7 Sep 2023 22:02:12 -0400 (EDT)

branch: elpa/golden-ratio
commit e66acd10aeb490bd29fb0362395d0b7c3db20740
Author: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Commit: Thierry Volpiatto <thierry.volpiatto@gmail.com>

    * golden-ratio.el (window-height-after-balance, 
window-width-after-balance): Prefix with golden-ratio.
---
 golden-ratio.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/golden-ratio.el b/golden-ratio.el
index d2611bb1b9..77e31fa51d 100644
--- a/golden-ratio.el
+++ b/golden-ratio.el
@@ -62,14 +62,14 @@ will not cause the window to be resized to the golden 
ratio."
 
 (defun golden-ratio--resize-window (dimensions &optional window)
   (with-selected-window (or window (selected-window))
-    (let ((nrow  (floor (- (first  dimensions) (window-height-after-balance))))
-          (ncol  (floor (- (second dimensions) (window-width-after-balance)))))
+    (let ((nrow  (floor (- (first  dimensions) 
(golden-ratio--window-height-after-balance))))
+          (ncol  (floor (- (second dimensions) 
(golden-ratio--window-width-after-balance)))))
       (when (window-resizable-p (selected-window) nrow)
         (enlarge-window nrow))
       (when (window-resizable-p (selected-window) ncol t)
         (enlarge-window ncol t)))))
 
-(defun window-width-after-balance ()
+(defun golden-ratio--window-width-after-balance ()
   (let* ((size-ls (loop for i in (window-list)
                         unless (window-full-width-p i)
                         collect (window-width i)))
@@ -77,7 +77,7 @@ will not cause the window to be resized to the golden ratio."
          (width (and size-ls (floor (/ (apply #'+ size-ls) len)))))
     (if width (min (window-width) width) (window-width))))
 
-(defun window-height-after-balance ()
+(defun golden-ratio--window-height-after-balance ()
   (let* ((size-ls (loop for i in (window-list)
                         unless (or (window-full-height-p i)
                                    (not (window-full-width-p i)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]