summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2019-08-06 15:16:28 +0200
committerAlan Pearce2019-08-06 15:16:28 +0200
commit949fe767aab789f269da4b3d9a8b9d2901080980 (patch)
tree80a71e9199f07596142db987f1ae4d424ee1b940
parent11714f9162eb12273f1b241a2dad6ed4f6973385 (diff)
downloaddotfiles-949fe767aab789f269da4b3d9a8b9d2901080980.tar.lz
dotfiles-949fe767aab789f269da4b3d9a8b9d2901080980.tar.zst
dotfiles-949fe767aab789f269da4b3d9a8b9d2901080980.zip
Emacs: moodify eyebrowse
-rw-r--r--emacs/.emacs.d/main.el19
1 files changed, 18 insertions, 1 deletions
diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 4769039..c66941c 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -63,7 +63,22 @@
   :config (progn
             (setq x-underline-at-descent-line t)
             (moody-replace-mode-line-buffer-identification)
-            (moody-replace-vc-mode)))
+            (moody-replace-vc-mode)
+            (with-eval-after-load 'eyebrowse
+              (defvar eyebrowse-lighter-default
+                '(:eval (eyebrowse-mode-line-indicator)))
+              (defvar moody-replace-eyebrowse-lighter
+                '(:eval (moody-tab (eyebrowse-mode-line-indicator) 1 'up)))
+              (defun moody-replace-eyebrowse (&optional reverse)
+                (interactive "P")
+                (if (assoc 'eyebrowse-mode mode-line-misc-info)
+                (setcdr (assoc 'eyebrowse-mode mode-line-misc-info)
+                        (list (if reverse
+                                  eyebrowse-lighter-default
+                                moody-replace-eyebrowse-lighter)))
+                (push (list 'eyebrowse-mode moody-replace-eyebrowse-lighter)
+                      (cdr (last mode-line-misc-info)))))
+              (moody-replace-eyebrowse nil))))
 
 (use-package ns-auto-titlebar
   :if (eq system-type 'darwin)
@@ -184,6 +199,8 @@ With two prefix arguments, write out the day and month name."
   :after (evil)
   :custom ((eyebrowse-new-workspace #'counsel-projectile-switch-project)
            (eyebrowse-mode t)
+           (eyebrowse-mode-line-left-delimiter "")
+           (eyebrowse-mode-line-right-delimiter "")
            (eyebrowse-mode-line-style 'always))
   :general (:keymaps 'evil-window-map
 	    "0" #'eyebrowse-switch-to-window-config-0