emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/workspaces: merge +ivy/workspace/switch-to into +workspace/switch-to

Browse source 
Relevant to #2127
Closes #2130
This commit is contained in:
Henrik Lissner 2019-12-01 05:10:40 -05:00
parent bf0efe81ae
commit 35ce37532b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

36
modules/ui/workspaces/autoload/workspaces.el
View file

@ -299,10 +299,18 @@ workspace, otherwise the new workspace is blank."
(+workspace/display)))
((debug error) (+workspace-error (cadr e) t))))
(defun +workspace--switch-to (index &optional skip-warnings)
"Generic workspace switching action. It is used by both the ivy and normal
command."
;;;###autoload
(defun +workspace/switch-to (index)
"Switch to a workspace at a given INDEX. A negative number will start from the
end of the workspace list."
(interactive
(list (or current-prefix-arg
(if (featurep! :completion ivy)
(ivy-read "Switch to workspace: "
(+workspace-list-names)
:caller #'+workspace/switch-to
:preselect (+workspace-current-name))
(completing-read "Switch to workspace: " (+workspace-list-names))))))
(when (and (stringp index)
(string-match-p "^[0-9]+$" index))
(setq index (string-to-number index)))
@ -319,29 +327,11 @@ command."
(t
(error "Not a valid index: %s" index)))
(unless (called-interactively-p 'interactive)
(if (and (not skip-warnings) (equal (+workspace-current-name) old-name))
(if (equal (+workspace-current-name) old-name)
(+workspace-message (format "Already in %s" old-name) 'warn)
(+workspace/display))))
('error (+workspace-error (cadr ex) t))))
;;;###autoload
(defun +ivy/workspace/switch-to ()
(interactive)
(ivy-read "Switch to workspace: "
(+workspace-list-names)
:caller #'+ivy/workspace/switch-to
:preselect (+workspace-current-name)
:action (lambda (w) (+workspace--switch-to w t))))
;;;###autoload
(defun +workspace/switch-to (index)
"Switch to a workspace at a given INDEX. A negative number will start from the
end of the workspace list."
(interactive
(list (or current-prefix-arg
(completing-read "Switch to workspace: " (+workspace-list-names)))))
(+workspace/switch-to index))
;;;###autoload
(dotimes (i 9)
(defalias (intern (format "+workspace/switch-to-%d" i))