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

Add frame fix

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-04-28 19:58:01 +02:00
parent 1b3725ae7f
commit 333d25d8fc
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
eyebrowse.el
View File

@ -220,7 +220,7 @@ If FRAME is nil, use current frame. TYPE can be any of
(eyebrowse--set 'last-slot 1 frame) (eyebrowse--set 'last-slot 1 frame)
(eyebrowse--set 'current-slot 1 frame) (eyebrowse--set 'current-slot 1 frame)
(eyebrowse--insert-in-window-config-list (eyebrowse--insert-in-window-config-list
(eyebrowse--current-window-config 1))) (eyebrowse--current-window-config 1) frame))
(defun eyebrowse--update-window-config-element (new-element) (defun eyebrowse--update-window-config-element (new-element)
"Replace the old element with NEW-ELEMENT in the window config list. "Replace the old element with NEW-ELEMENT in the window config list.
@ -229,17 +229,17 @@ The old element is identified by the first element of NEW-ELEMENT."
(--replace-where (= (car it) (car new-element)) (--replace-where (= (car it) (car new-element))
new-element (eyebrowse--get 'window-configs)))) new-element (eyebrowse--get 'window-configs))))
(defun eyebrowse--insert-in-window-config-list (element) (defun eyebrowse--insert-in-window-config-list (element &optional frame)
"Insert ELEMENT in the list of window configs. "Insert ELEMENT in the list of window configs.
This function keeps the sortedness intact." This function keeps the sortedness intact."
(let* ((window-configs (eyebrowse--get 'window-configs)) (let* ((window-configs (eyebrowse--get 'window-configs frame))
(index (--find-last-index (< (car it) (car element)) window-configs))) (index (--find-last-index (< (car it) (car element)) window-configs)))
(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) frame)))
(defun eyebrowse--window-config-present-p (slot) (defun eyebrowse--window-config-present-p (slot &optional frame)
"Non-nil if there is a window config at SLOT." "Non-nil if there is a window config at SLOT."
(assq slot (eyebrowse--get 'window-configs))) (assq slot (eyebrowse--get 'window-configs frame)))
(defun eyebrowse--current-window-config (slot) (defun eyebrowse--current-window-config (slot)
"Returns a window config list appliable for SLOT." "Returns a window config list appliable for SLOT."