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

Remove initial window slot functionality

Browse Source 
Closes #32
This commit is contained in:
Vasilij Schneidermann
2015-06-08 18:53:03 +02:00
parent 1a2af0263c
commit 33bfcaab6a
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
eyebrowse.el
View File

@ -256,18 +256,14 @@ This function keeps the sortedness intact."
(set-window-configuration window-config) (set-window-configuration window-config)
(goto-char point))))) (goto-char point)))))
(defun eyebrowse--read-slot (&optional initial-slot) (defun eyebrowse--read-slot ()
"Read in a window config SLOT to switch to. "Read in a window config SLOT to switch to.
A formatted list of window configs is presented as candidates. A formatted list of window configs is presented as candidates."
If INITIAL-SLOT is set, use the respective window config as
preselected candidate."
(let* ((candidates (--map (cons (eyebrowse-format-slot it) (let* ((candidates (--map (cons (eyebrowse-format-slot it)
(car it)) (car it))
(eyebrowse--get 'window-configs))) (eyebrowse--get 'window-configs)))
(candidate (completing-read (candidate (completing-read
"Enter slot: " candidates nil t "Enter slot: " candidates nil t)))
(and initial-slot
(car (rassoc initial-slot candidates))))))
(cdr (assoc candidate candidates)))) (cdr (assoc candidate candidates))))
(defun eyebrowse-switch-to-window-config (slot) (defun eyebrowse-switch-to-window-config (slot)
@ -279,7 +275,7 @@ This will save the current window config to
last window config." last window config."
(interactive (list (if (numberp current-prefix-arg) (interactive (list (if (numberp current-prefix-arg)
current-prefix-arg current-prefix-arg
(eyebrowse--read-slot (eyebrowse--get 'last-slot))))) (eyebrowse--read-slot))))
(when slot (when slot
(let* ((current-slot (eyebrowse--get 'current-slot)) (let* ((current-slot (eyebrowse--get 'current-slot))
(window-configs (eyebrowse--get 'window-configs)) (window-configs (eyebrowse--get 'window-configs))