[nongnu] elpa/moe-theme 786c5f9aef: Add colorized mode-line for Elscreen + X11

[ELPA Syncer]

branch: elpa/moe-theme
commit 786c5f9aefa38b36f6bee0aa56aaa8da00fa0924
Author: ono ono <azazabc123@gmail.com>
Commit: ono ono <azazabc123@gmail.com>

    Add colorized mode-line for Elscreen + X11
---
 moe-theme.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/moe-theme.el b/moe-theme.el
index ce74ba3959..076326210a 100644
--- a/moe-theme.el
+++ b/moe-theme.el
@@ -403,7 +403,6 @@ as long as setq `moe-theme-mode-line-color' first."
 ;; Auto Colorize by frame id (Only usable under terminal)
 ;; ======================================================
 (when (null (window-system))
-  ;; [TODO] support for Elscreen
   (defun moe-theme-get-color-by-frame-name ()
     (let* ((obj-name (format "%s" (selected-frame)))
            (name (progn (string-match "#<frame \\(.+?\\) 0x[0-9a-f]+>" 
obj-name)
@@ -426,7 +425,19 @@ as long as setq `moe-theme-mode-line-color' first."
     (if moe-theme-colorize-modeline-by-frame-id
         (moe-theme-apply-color (moe-theme-get-color-by-frame-name)))))
 
-
+;; support for Elscreen
+(with-eval-after-load 'elscreen
+  (when (and (window-system))
+    (defun moe-theme-get-color-by-frame-name ()
+      (let* ((all-screen-indexes (sort (elscreen-get-screen-list) '<))
+             (cur-index (elscreen-get-current-screen))
+             (enabled-colors-len (length 
moe-theme-colorize-modeline-by-frame-id-color-set)))
+        (nth (% cur-index enabled-colors-len) 
moe-theme-colorize-modeline-by-frame-id-color-set)))
+    (defadvice elscreen-goto (after change-mode-line-color-by-frame-id 
activate)
+      (if moe-theme-colorize-modeline-by-frame-id
+          (moe-theme-apply-color (moe-theme-get-color-by-frame-name)))
+      )
+    ))
 ;;;###autoload
 (when (and (boundp 'custom-theme-load-path)
            load-file-name)