mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
Easier creation of named workspaces
When a user tries to switch to a named workspace that doesn't exist, creat it, instead of just failing. Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
This commit is contained in:
@ -318,9 +318,7 @@ end of the workspace list."
|
|||||||
(error "No workspace at #%s" (1+ index)))
|
(error "No workspace at #%s" (1+ index)))
|
||||||
(+workspace-switch dest)))
|
(+workspace-switch dest)))
|
||||||
((stringp index)
|
((stringp index)
|
||||||
(unless (member index names)
|
(+workspace-switch index t))
|
||||||
(error "No workspace named %s" index))
|
|
||||||
(+workspace-switch index))
|
|
||||||
(t
|
(t
|
||||||
(error "Not a valid index: %s" index)))
|
(error "Not a valid index: %s" index)))
|
||||||
(unless (called-interactively-p 'interactive)
|
(unless (called-interactively-p 'interactive)
|
||||||
|
Reference in New Issue
Block a user