[nongnu] elpa/golden-ratio bb4afe59b2 08/95: Merge pull request #3 from dsevilla/master

[ELPA Syncer]

branch: elpa/golden-ratio
commit bb4afe59b2914a950e38ba36b1d208153b4db346
Merge: 0f42738fb9 65db8b88aa
Author: Roman Gonzalez <romanandreg@gmail.com>
Commit: Roman Gonzalez <romanandreg@gmail.com>

    Merge pull request #3 from dsevilla/master
    
    Added a constant to hold the golden ratio value
---
 golden-ratio.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/golden-ratio.el b/golden-ratio.el
index 639fc9faa9..3511a213f7 100644
--- a/golden-ratio.el
+++ b/golden-ratio.el
@@ -14,9 +14,12 @@
 
 ;;; Code:
 
+(defconst -golden-ratio-value 1.618
+  "The golden ratio value itself.")
+
 (defun -golden-ratio-dimensions ()
-  (let* ((main-rows     (floor (/ (frame-height) 1.618)))
-         (main-columns  (floor (/ (frame-width)  1.618))))
+  (let* ((main-rows     (floor (/ (frame-height) -golden-ratio-value)))
+         (main-columns  (floor (/ (frame-width)  -golden-ratio-value))))
     (list main-rows
           main-columns)))