branch: elpa/moe-theme
commit a7c8279e8e6160a52236a69ef1a3b2111be29693
Author: ono ono <[email protected]>
Commit: ono ono <[email protected]>
feat: [moe-theme.el] make behavior of `tab-tab` same as `elscreen`
---
moe-theme.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/moe-theme.el b/moe-theme.el
index d5a39ded49b..deade70c643 100644
--- a/moe-theme.el
+++ b/moe-theme.el
@@ -452,9 +452,11 @@ as long as setq `moe-theme-modeline-color' first."
;; Support for tab-bar mode (built-in since Emacs 27)
(with-eval-after-load 'tab-bar
(defun moe-theme-get-color-by-tab-bar-index ()
- (let* ((int (tab-bar--current-tab-index))
- (enabled-colors-len (length
moe-theme-colorize-modeline-by-frame-id-color-set)))
- (nth (% int enabled-colors-len)
moe-theme-colorize-modeline-by-frame-id-color-set)))
+ (let* ((cur-index (tab-bar--current-tab-index))
+ (enabled-colors-len (length
moe-theme-colorize-modeline-by-frame-id-color-set))
+ (gotten-color (nth (% cur-index enabled-colors-len)
moe-theme-colorize-modeline-by-frame-id-color-set)))
+ (message "[%s] %s" cur-index gotten-color)
+ gotten-color))
(defadvice tab-bar-select-tab (after
change-mode-line-color-by-tab-bar--select activate)
(if moe-theme-colorize-modeline-by-frame-id
