branch: elpa/golden-ratio
commit e66acd10aeb490bd29fb0362395d0b7c3db20740
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
* 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)))
