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

feature/workspaces: clear last workspace instead of erroring out

Browse Source
This commit is contained in:
Henrik Lissner
2018-04-02 05:50:39 -04:00
parent 7282553d2d
commit aad653d913
1 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -259,7 +259,6 @@ workspace to delete."
nil nil current-name) nil nil current-name)
current-name)))) current-name))))
(condition-case-unless-debug ex (condition-case-unless-debug ex
(+workspace-message
(let ((workspaces (length (+workspace-list-names)))) (let ((workspaces (length (+workspace-list-names))))
(cond ((> workspaces 1) (cond ((> workspaces 1)
(+workspace-delete name) (+workspace-delete name)
@ -268,16 +267,13 @@ workspace to delete."
+workspace--last +workspace--last
(car (+workspace-list-names)))) (car (+workspace-list-names))))
(unless (doom-buffer-frame-predicate (current-buffer)) (unless (doom-buffer-frame-predicate (current-buffer))
(switch-to-buffer (doom-fallback-buffer))) (switch-to-buffer (doom-fallback-buffer))))
(format "Deleted '%s' workspace" name))
((= workspaces 1)
(format "Can't delete the last workspace!"))
(t (t
(+workspace-delete name)
(+workspace-switch +workspaces-main t) (+workspace-switch +workspaces-main t)
(switch-to-buffer (doom-fallback-buffer)) (unless (string= (car workspaces) +workspaces-main)
(format "No workspaces detected! Auto-creating '%s' workspace" +workspaces-main)))) (+workspace-delete name))
'success) (doom/kill-all-buffers)))
(+workspace-message (format "Deleted '%s' workspace" name) 'success))
('error (+workspace-error ex t)))) ('error (+workspace-error ex t))))
;;;###autoload ;;;###autoload