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

fix(wrkspcs): interactive rename, save + load dir

Browse source
This commit is contained in:
Russell Matney 2017-09-09 19:30:08 -04:00
parent 353af2597b
commit 05a743320f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -116,7 +116,7 @@ Returns t on success, nil otherwise."
(error "%s is not an available workspace" name)) (error "%s is not an available workspace" name))
(persp-save-to-file-by-names (persp-save-to-file-by-names
+workspace-workspace-file *persp-hash* (list name) t) +workspace-workspace-file *persp-hash* (list name) t)
(memq name (persp-list-persp-names-in-file +workspace-workspace-file))) (memq name (persp-list-persp-names-in-file (concat persp-save-dir +workspace-workspace-file))))
;;;###autoload ;;;###autoload
(defun +workspace-save-session (&optional name) (defun +workspace-save-session (&optional name)
@ -194,7 +194,7 @@ current workspace (by name) from session files."
(+workspace-current-name) (+workspace-current-name)
(completing-read "Workspace to load: " (completing-read "Workspace to load: "
(persp-list-persp-names-in-file (persp-list-persp-names-in-file
+workspace-workspace-file))))) (concat persp-save-dir +workspace-workspace-file))))))
(if (not (+workspace-load name)) (if (not (+workspace-load name))
(+workspace-error (format "Couldn't load workspace %s" name)) (+workspace-error (format "Couldn't load workspace %s" name))
(+workspace/switch-to name) (+workspace/switch-to name)
@ -250,7 +250,7 @@ the session as."
;;;###autoload ;;;###autoload
(defun +workspace/rename (new-name) (defun +workspace/rename (new-name)
"Rename the current workspace." "Rename the current workspace."
(interactive) (interactive (list (read-from-minibuffer "New workspace name: ")))
(condition-case ex (condition-case ex
(let* ((current-name (+workspace-current-name)) (let* ((current-name (+workspace-current-name))
(old-name (+workspace-rename current-name new-name))) (old-name (+workspace-rename current-name new-name)))