gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
Show Stats 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: "
(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