[nongnu] elpa/moe-theme 4128550d39 311/352: shit

[ELPA Syncer]

branch: elpa/moe-theme
commit 4128550d394358d3057c84e1b498790cd3feccb5
Author: ono hiroko <azazabc123@gmail.com>
Commit: ono hiroko <azazabc123@gmail.com>

    shit
---
 moe-theme.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/moe-theme.el b/moe-theme.el
index 14c0bd35a5..d816a17f7e 100644
--- a/moe-theme.el
+++ b/moe-theme.el
@@ -382,7 +382,7 @@ This function can be called both programmly and 
interactively."
              (name (progn (string-match "#<frame \\(.+?\\) 0x[0-9a-f]+>" 
obj-name)
                           (match-string-no-properties 1 obj-name)))
              (int (if (string-match "F\\([0-9]+\\)" name)
-                      (string-to-int (match-string-no-properties 1 name))
+                      (1- (string-to-int (match-string-no-properties 1 name)))
                     (string-to-int (substring (md5 name) 0 1) 16)))
              (enabled-colors-len (length 
moe-theme-colorize-modeline-color-set)))
         (nth (% int enabled-colors-len) 
moe-theme-colorize-modeline-color-set))))
@@ -390,13 +390,20 @@ This function can be called both programmly and 
interactively."
 (defadvice other-frame (after change-mode-line-color-by-frame-id activate)
   (moe-theme-set-color (moe-theme-get-color-by-frame-name)))
 
+(defadvice delete-frame (after change-mode-line-color-by-frame-id activate)
+  (moe-theme-set-color (moe-theme-get-color-by-frame-name)))
+
+(defadvice make-frame-command (after change-mode-line-color-by-frame-id 
activate)
+  (moe-theme-set-color (moe-theme-get-color-by-frame-name)))
+
 (with-eval-after-load "powerline"
   (defun moe-theme-toggle-powerline-supporting ()
     (interactive)
+
     )
 
-  (defalias 'moe-theme-load-powerline 'powerline-load-moe-theme-color-scheme)
-  (defun powerline-load-moe-theme-color-scheme ()
+  ;; (defalias 'moe-theme-load-powerline 
'powerline-load-moe-theme-color-scheme)
+  (defun moe-theme--setup-theme-for-powerline ()
     "Powerline theme powered by moe-theme.el
 It's recommended use this with `moe-light' or `moe-dark', but it's ok without 
them,
 as long as setq `moe-theme-mode-line-color' first."