[nongnu] elpa/golden-ratio 0f42738fb9 05/95: Adding "emacs package standards" to golden-ratio.el

[ELPA Syncer]

branch: elpa/golden-ratio
commit 0f42738fb967f71790705424c6db36cb52b88207
Author: Roman Gonzalez <romanandreg@gmail.com>
Commit: Roman Gonzalez <romanandreg@gmail.com>

    Adding "emacs package standards" to golden-ratio.el
---
 golden-ratio.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/golden-ratio.el b/golden-ratio.el
index d483496923..639fc9faa9 100644
--- a/golden-ratio.el
+++ b/golden-ratio.el
@@ -1,9 +1,26 @@
+;;; golden-ratio.el --- Automatic resizing of Emacs windows to the golden ratio
+
+;; Copyright (C) 2012 Roman Gonzalez
+
+;; Author: Roman Gonzalez <romanandreg@gmail.com>
+;; Mantainer: Roman Gonzalez <romanandreg@gmail.com>
+;; Created: 13 Oct 2012
+;; Keywords: Window Resizing
+;; Version: 0.0.2
+
+;; This file is not part of GNU Emacs.
+
+;; This file is free software (MIT License)
+
+;;; Code:
+
 (defun -golden-ratio-dimensions ()
   (let* ((main-rows     (floor (/ (frame-height) 1.618)))
          (main-columns  (floor (/ (frame-width)  1.618))))
     (list main-rows
           main-columns)))
 
+
 (defun -golden-ratio-resize-window (dimensions window)
   (let* ((edges           (window-absolute-pixel-edges window))
          (nrow            (floor
@@ -18,6 +35,7 @@
 
 
 (defun golden-ratio ()
+  "Resizes current window to the golden-ratio's size specs"
   (interactive)
   (if (and (not (window-minibuffer-p))
            (not (one-window-p)))
@@ -26,16 +44,24 @@
         (-golden-ratio-resize-window (-golden-ratio-dimensions)
                                      (selected-window)))))
 
+
 (defadvice select-window
   (after golden-ratio-resize-window)
   (golden-ratio))
 
+
 (defun golden-ratio-enable ()
+  "Enables golden-ratio's automatic window resizing"
   (interactive)
   (ad-activate 'select-window))
 
+
 (defun golden-ratio-disable ()
+  "Disables golden-ratio's automatic window resizing"
   (interactive)
   (ad-deactivate 'select-window))
 
+
 (provide 'golden-ratio)
+
+;;; filename ends here