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

feature/workspaces: announce workspace name when loading/saving

Browse source
This commit is contained in:
Henrik Lissner 2017-03-04 00:01:48 -05:00
parent dc3687920a
commit 7d1b02cbed
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/feature/workspaces/autoload/workspaces.el
View file

@ -167,8 +167,9 @@ session."
"Session to load: " "Session to load: "
(directory-files persp-save-dir nil "^[^_.]") (directory-files persp-save-dir nil "^[^_.]")
nil t)))) nil t))))
(+workspace-load-session (or name "last")) (let ((name (or name "last")))
(+workspace/display)) (+workspace-load-session name)
(+workspace-message (format "'%s' workspace loaded" name) 'success)))
;;;###autoload ;;;###autoload
(defun +workspace/save (name) (defun +workspace/save (name)
@ -180,7 +181,7 @@ workspace."
(+workspace-current-name) (+workspace-current-name)
(completing-read "Workspace to save: " (+workspace-list))))) (completing-read "Workspace to save: " (+workspace-list)))))
(if (+workspace-save name) (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)))) (+workspace-error (format "Couldn't save workspace %s" name))))
;;;###autoload ;;;###autoload