From 05a743320f9b057b9bdaa80e19b10340c2507335 Mon Sep 17 00:00:00 2001 From: Russell Matney Date: Sat, 9 Sep 2017 19:30:08 -0400 Subject: [PATCH] fix(wrkspcs): interactive rename, save + load dir --- modules/feature/workspaces/autoload/workspaces.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/feature/workspaces/autoload/workspaces.el b/modules/feature/workspaces/autoload/workspaces.el index f87cd6d5a..cdd5d2534 100644 --- a/modules/feature/workspaces/autoload/workspaces.el +++ b/modules/feature/workspaces/autoload/workspaces.el @@ -116,7 +116,7 @@ Returns t on success, nil otherwise." (error "%s is not an available workspace" name)) (persp-save-to-file-by-names +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 (defun +workspace-save-session (&optional name) @@ -194,7 +194,7 @@ current workspace (by name) from session files." (+workspace-current-name) (completing-read "Workspace to load: " (persp-list-persp-names-in-file - +workspace-workspace-file))))) + (concat persp-save-dir +workspace-workspace-file)))))) (if (not (+workspace-load name)) (+workspace-error (format "Couldn't load workspace %s" name)) (+workspace/switch-to name) @@ -250,7 +250,7 @@ the session as." ;;;###autoload (defun +workspace/rename (new-name) "Rename the current workspace." - (interactive) + (interactive (list (read-from-minibuffer "New workspace name: "))) (condition-case ex (let* ((current-name (+workspace-current-name)) (old-name (+workspace-rename current-name new-name)))