[nongnu] elpa/golden-ratio b78f921f56 74/95: Allow using symbols in golden-ratio-exclude-modes.

[ELPA Syncer]

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

    Allow using symbols in golden-ratio-exclude-modes.
    
    * golden-ratio.el (golden-ratio-exclude-modes): Fix docstring.
    (golden-ratio-exclude-major-mode-p): New.
    (golden-ratio): Use it.
---
 golden-ratio.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/golden-ratio.el b/golden-ratio.el
index d5a6b58d9c..48e6e428c5 100644
--- a/golden-ratio.el
+++ b/golden-ratio.el
@@ -26,9 +26,9 @@
 
 ;; Major modes that are exempt from being resized. An example of this
 ;; for users of Org-mode might be:
-;;  ("calendar-mode")
+;;  ("calendar-mode") or (calendar-mode)
 (defcustom golden-ratio-exclude-modes nil
-  "An array of strings naming major modes.
+  "A list of symbols or strings naming major modes.
 Switching to a buffer whose major mode is a member of this list
 will not cause the window to be resized to the golden ratio."
   :type '(repeat string)
@@ -120,6 +120,12 @@ will not cause the window to be resized to the golden 
ratio."
       (when (window-resizable-p (selected-window) ncol t)
         (enlarge-window ncol t)))))
 
+(defun golden-ratio-exclude-major-mode-p ()
+  "Returns non-nil if `major-mode' should not use golden-ratio."
+  (or (member (symbol-name major-mode)
+              golden-ratio-exclude-modes)
+      (memq major-mode golden-ratio-exclude-modes)))
+
 ;;;###autoload
 (defun golden-ratio ()
   "Resizes current window to the golden-ratio's size specs."
@@ -127,8 +133,7 @@ will not cause the window to be resized to the golden 
ratio."
   (unless (or (not golden-ratio-mode)
               (window-minibuffer-p)
               (one-window-p)
-              (member (symbol-name major-mode)
-                      golden-ratio-exclude-modes)
+              (golden-ratio-exclude-major-mode-p)
               (member (buffer-name)
                       golden-ratio-exclude-buffer-names)
               (and golden-ratio-inhibit-functions