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

Don't hardcode initial choice for slot reading

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-05-22 09:56:48 +02:00
parent 6cf2054cb2
commit 488d89499c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -249,12 +249,12 @@ 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 () (defun eyebrowse--read-slot (&optional initial-slot)
(let* ((candidates (--map (number-to-string (car it)) (let* ((candidates (--map (number-to-string (car it))
(eyebrowse--get 'window-configs))) (eyebrowse--get 'window-configs)))
(last-slot (number-to-string (eyebrowse--get 'last-slot))) (selection (completing-read
(selection (completing-read "Enter slot: " candidates "Enter slot: " candidates
nil nil last-slot)) nil nil (and initial-slot (number-to-string initial-slot))))
(slot (string-to-number selection))) (slot (string-to-number selection)))
(unless (and (= slot 0) (not (string= selection "0"))) (unless (and (= slot 0) (not (string= selection "0")))
slot))) slot)))
@ -266,7 +266,7 @@ This will save the current window config to
`eyebrowse-switch-back-and-forth' is t and `eyebrowse-switch-back-and-forth' is t and
`eyebrowse-current-slot' equals SLOT, this will switch to the `eyebrowse-current-slot' equals SLOT, this will switch to the
last window config." last window config."
(interactive (list (eyebrowse--read-slot))) (interactive (list (eyebrowse--read-slot (eyebrowse--get 'last-slot))))
(when slot (when slot
(let ((current-slot (eyebrowse--get 'current-slot)) (let ((current-slot (eyebrowse--get 'current-slot))
(last-slot (eyebrowse--get 'last-slot))) (last-slot (eyebrowse--get 'last-slot)))