Previous code would show two windows when invoked from a window that is dedicated to its buffer: the home buffer and the dedicated buffer.
78 lines
3 KiB
EmacsLisp
78 lines
3 KiB
EmacsLisp
;;; packages.el --- Eyebrowse Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(setq eyebrowse-packages '(eyebrowse))
|
|
|
|
(defun eyebrowse/init-eyebrowse ()
|
|
(use-package eyebrowse
|
|
:init
|
|
(progn
|
|
(setq eyebrowse-new-workspace #'spacemacs/home-delete-other-windows
|
|
eyebrowse-wrap-around t)
|
|
(eyebrowse-mode)
|
|
|
|
;; vim-style tab switching
|
|
(define-key evil-motion-state-map "gt" 'eyebrowse-next-window-config)
|
|
(define-key evil-motion-state-map "gT" 'eyebrowse-prev-window-config)
|
|
|
|
(defun spacemacs/workspaces-ms-rename ()
|
|
"Rename a workspace and get back to transient-state."
|
|
(interactive)
|
|
(eyebrowse-rename-window-config (eyebrowse--get 'current-slot) nil)
|
|
(spacemacs/workspaces-micro-state))
|
|
|
|
(defun spacemacs//workspaces-ms-get-slot-name (window-config)
|
|
"Return the name for the given window-config"
|
|
(let ((slot (car window-config))
|
|
(caption (eyebrowse-format-slot window-config)))
|
|
(if (= slot current-slot)
|
|
(format "[%s]" caption)
|
|
caption)))
|
|
|
|
(defun spacemacs//workspaces-ms-get-window-configs ()
|
|
"Return the list of window configs."
|
|
(--sort (if (eq (car other) 0)
|
|
t
|
|
(< (car it) (car other)))
|
|
(eyebrowse--get 'window-configs)))
|
|
|
|
(spacemacs|define-transient-state workspaces
|
|
:title "Workspaces Transient State"
|
|
:doc "
|
|
[_0_.._9_] switch to workspace [_n_/_p_] next/prev [_[tab]_] last [_c_] close [_r_] rename"
|
|
:doc (concat (spacemacs//workspaces-ms-documentation))
|
|
:bindings
|
|
("0" eyebrowse-switch-to-window-config-0)
|
|
("1" eyebrowse-switch-to-window-config-1)
|
|
("2" eyebrowse-switch-to-window-config-2)
|
|
("3" eyebrowse-switch-to-window-config-3)
|
|
("4" eyebrowse-switch-to-window-config-4)
|
|
("5" eyebrowse-switch-to-window-config-5)
|
|
("6" eyebrowse-switch-to-window-config-6)
|
|
("7" eyebrowse-switch-to-window-config-7)
|
|
("8" eyebrowse-switch-to-window-config-8)
|
|
("9" eyebrowse-switch-to-window-config-9)
|
|
("<tab>" eyebrowse-last-window-config)
|
|
("C-i" eyebrowse-last-window-config)
|
|
("c" eyebrowse-close-window-config)
|
|
("h" eyebrowse-prev-window-config)
|
|
("l" eyebrowse-next-window-config)
|
|
("n" eyebrowse-next-window-config)
|
|
("N" eyebrowse-prev-window-config)
|
|
("p" eyebrowse-prev-window-config)
|
|
("r" spacemacs/workspaces-ms-rename :exit t)
|
|
("w" eyebrowse-switch-to-window-config :exit t))
|
|
|
|
;; The layouts layer defines this keybinding inside a transient-state
|
|
;; thus this is only needed if that layer is not used
|
|
(unless (configuration-layer/layer-usedp 'spacemacs-layouts)
|
|
(spacemacs/set-leader-keys "lw" 'spacemacs/workspaces-transient-state/body)))))
|