awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

+workspace/delete: error if workspace doesn't exist

Browse Source
This commit is contained in:
Henrik Lissner
2018-08-26 14:14:53 +02:00
parent e40a58c423
commit 1ed8894826
1 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/feature/workspaces/autoload/workspaces.el
View File

@ -301,6 +301,8 @@ workspace to delete."
current-name)))) current-name))))
(condition-case-unless-debug ex (condition-case-unless-debug ex
(let ((workspaces (+workspace-list-names))) (let ((workspaces (+workspace-list-names)))
(if (not (member name workspaces))
(+workspace-message (format "'%s' workspace doesn't exist" name) 'warn)
(cond ((delq (selected-frame) (persp-frames-with-persp (get-frame-persp))) (cond ((delq (selected-frame) (persp-frames-with-persp (get-frame-persp)))
(user-error "Can't close workspace, it's visible in another frame")) (user-error "Can't close workspace, it's visible in another frame"))
((> (length workspaces) 1) ((> (length workspaces) 1)
@ -316,7 +318,7 @@ workspace to delete."
(unless (string= (car workspaces) +workspaces-main) (unless (string= (car workspaces) +workspaces-main)
(+workspace-delete name)) (+workspace-delete name))
(doom/kill-all-buffers))) (doom/kill-all-buffers)))
(+workspace-message (format "Deleted '%s' workspace" name) 'success)) (+workspace-message (format "Deleted '%s' workspace" name) 'success)))
('error (+workspace-error ex t)))) ('error (+workspace-error ex t))))
;;;###autoload ;;;###autoload