From 7d1b02cbedfee571739acc860cfd4b5ba6aa10de Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 4 Mar 2017 00:01:48 -0500 Subject: [PATCH] feature/workspaces: announce workspace name when loading/saving --- modules/feature/workspaces/autoload/workspaces.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/modules/feature/workspaces/autoload/workspaces.el b/modules/feature/workspaces/autoload/workspaces.el index 2d205b6bb..9b7157a2e 100644 --- a/modules/feature/workspaces/autoload/workspaces.el +++ b/modules/feature/workspaces/autoload/workspaces.el @@ -167,8 +167,9 @@ session." "Session to load: " (directory-files persp-save-dir nil "^[^_.]") nil t)))) - (+workspace-load-session (or name "last")) - (+workspace/display)) + (let ((name (or name "last"))) + (+workspace-load-session name) + (+workspace-message (format "'%s' workspace loaded" name) 'success))) ;;;###autoload (defun +workspace/save (name) @@ -180,7 +181,7 @@ workspace." (+workspace-current-name) (completing-read "Workspace to save: " (+workspace-list))))) (if (+workspace-save name) - (+workspace-message (format "%s workspace saved" name) 'success) + (+workspace-message (format "'%s' workspace saved" name) 'success) (+workspace-error (format "Couldn't save workspace %s" name)))) ;;;###autoload