From 949fe767aab789f269da4b3d9a8b9d2901080980 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Tue, 6 Aug 2019 15:16:28 +0200 Subject: Emacs: moodify eyebrowse --- emacs/.emacs.d/main.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'emacs') 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 -- cgit 1.4.1