alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Initialize at beginning of session and frame init

Browse Source
This commit is contained in:
Vasilij Schneidermann
2014-09-01 09:16:31 +02:00
parent a32eb2091b
commit c3e62b4d53
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
eyebrowse.el
View File

@ -268,6 +268,11 @@ last window config."
;; --- public functions ------------------------------------------------------ ;; --- public functions ------------------------------------------------------
(defun eyebrowse-init (&optional frame)
"Initialize Eyebrowse for the current frame."
(eyebrowse-set 'last-slot 1 frame)
(eyebrowse-set 'current-slot 1 frame))
(defun eyebrowse-next-window-config (count) (defun eyebrowse-next-window-config (count)
"Switch to the next available window config. "Switch to the next available window config.
If `eyebrowse-wrap-around-p' is t, this will switch from the last If `eyebrowse-wrap-around-p' is t, this will switch from the last
@ -418,8 +423,12 @@ behaviour of `ranger`, a file manager."
:keymap eyebrowse-mode-map :keymap eyebrowse-mode-map
:global t :global t
(if eyebrowse-mode (if eyebrowse-mode
(add-to-list 'mode-line-misc-info (progn
'(:eval (eyebrowse-update-mode-line)) t) (eyebrowse-init)
(add-hook 'after-make-frame-functions 'eyebrowse-init)
(add-to-list 'mode-line-misc-info
'(:eval (eyebrowse-update-mode-line)) t))
(remove-hook 'after-make-frame-functions 'eyebrowse-init)
(setq mode-line-misc-info (setq mode-line-misc-info
(remove '(:eval (eyebrowse-update-mode-line)) mode-line-misc-info)))) (remove '(:eval (eyebrowse-update-mode-line)) mode-line-misc-info))))