Commit 59eb17d19d8a

Vincent Demeester <vincent@sbr.pm>
2020-04-07 21:05:58
config-windows.el: re-configure eyebrowse
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent 5ea53a5
tools/emacs/config/config-appearance.el
@@ -98,7 +98,7 @@
 
   (setq-default mode-line-format
                 '("%e"
-                  my-eyebrowse-mode-line
+                  mu-eyebrowse-mode-line
                   mode-line-front-space
                   mode-line-client
                   mode-line-modified
tools/emacs/config/config-windows.el
@@ -44,16 +44,20 @@
         (other-window 1)
         (switch-to-buffer (other-buffer))))))
 
-(bind-key "C-c w t" #'vde/window-split-toggle)
+;;(bind-key "C-c w t" #'vde/window-split-toggle)
 
-(use-package eyebrowse                  ; Easy workspaces creation and switching
-  :disabled
-  :init (eyebrowse-mode t)
+(use-package eyebrowse
+  :commands (eyebrowse-switch-to-window-config)
+  :bind (("C-c w s" . eyebrowse-switch-to-window-config)
+         ("C-c w k" . eyebrowse-close-window-config)
+         ("C-c w w" . eyebrowse-last-window-config)
+         ("C-c w n" . eyebrowse-next-window-config)
+         ("C-c w p" . eyebrowse-prev-window-config))
   :config
-  (setq
-   eyebrowse-mode-line-separator " "
-   eyebrowse-mode-line-style 'always
-   eyebrowse-new-workspace t
-   eyebrowse-wrap-around t))
+  (setq-default eyebrowse-mode-line-separator " "
+                eyebrowse-mode-line-style 'always
+                eyebrowse-new-workspace t
+                eyebrowse-wrap-around t)
+  (eyebrowse-mode 1))
 
 (provide 'setup-windows)
tools/emacs/config/setup-style.el
@@ -15,28 +15,6 @@
 
     ;; Show buffer position percentage starting from top
 
-
-    (setq-default mode-line-format
-                  '("%e"
-                    mu-eyebrowse-mode-line
-                    mode-line-front-space
-                    mode-line-mule-info
-                    mode-line-client
-                    mode-line-modified
-                    mode-line-remote
-                    mode-line-frame-identification
-                    mode-line-buffer-identification " " mode-line-position
-                    (vc-mode vc-mode)
-                    (multiple-cursors-mode mc/mode-line)
-                    " " mode-line-modes
-                    mode-line-end-spaces))
-
-    (defmacro rename-modeline (package-name mode new-name)
-      "Rename PACKAGE-NAME with MODE into NEW-NAME in the mode line."
-      `(eval-after-load ,package-name
-         '(defadvice ,mode (after rename-modeline activate)
-            (setq mode-name ,new-name))))
-
     (defun generic-term-init ()
       (visual-line-mode -1)
       (setq-local global-hl-line-mode nil)