branch: elpa/golden-ratio
commit 0f42738fb967f71790705424c6db36cb52b88207
Author: Roman Gonzalez <[email protected]>
Commit: Roman Gonzalez <[email protected]>
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 <[email protected]>
+;; Mantainer: Roman Gonzalez <[email protected]>
+;; 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
