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

Throw away eyebrowse--save-window-config

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-04-26 12:20:24 +02:00
parent ecd1ca4821
commit 16e48fb45f
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
eyebrowse.el
View File

@ -217,12 +217,13 @@ This function keeps the sortedness intact."
(eyebrowse--set 'window-configs (eyebrowse--set 'window-configs
(-insert-at (if index (1+ index) 0) element window-configs)))) (-insert-at (if index (1+ index) 0) element window-configs))))
(defun eyebrowse--save-window-config (slot) (defun eyebrowse--window-config-present-p (slot)
"Save the current window config to SLOT." "Non-nil if there is a window config at SLOT."
(let* ((element (list slot (current-window-configuration) (point)))) (assq slot (eyebrowse--get 'window-configs)))
(if (assq slot (eyebrowse--get 'window-configs))
(eyebrowse--update-window-config-element element) (defun eyebrowse--current-window-config (slot)
(eyebrowse--insert-in-window-config-list element)))) "Returns a window config list appliable for SLOT."
(list slot (current-window-configuration) (point)))
(defun eyebrowse--load-window-config (slot) (defun eyebrowse--load-window-config (slot)
"Restore the window config from SLOT." "Restore the window config from SLOT."
@ -258,12 +259,14 @@ last window config."
(setq slot last-slot)) (setq slot last-slot))
(when (/= current-slot slot) (when (/= current-slot slot)
(run-hooks 'eyebrowse-pre-window-switch-hook) (run-hooks 'eyebrowse-pre-window-switch-hook)
(eyebrowse--save-window-config current-slot) (eyebrowse--update-window-config-element
(eyebrowse--current-window-config current-slot))
(unless (eyebrowse--window-config-present-p slot)
(eyebrowse--insert-in-window-config-list
(eyebrowse--current-window-config slot)))
(eyebrowse--load-window-config slot) (eyebrowse--load-window-config slot)
(eyebrowse--set 'last-slot current-slot) (eyebrowse--set 'last-slot current-slot)
(eyebrowse--set 'current-slot slot) (eyebrowse--set 'current-slot slot)
(eyebrowse--save-window-config slot)
(eyebrowse--load-window-config slot)
(run-hooks 'eyebrowse-post-window-switch-hook))))) (run-hooks 'eyebrowse-post-window-switch-hook)))))
(defun eyebrowse-next-window-config (count) (defun eyebrowse-next-window-config (count)