From 552684564e5e4cbea923d519f0f9e517dc7d58e5 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 6 Mar 2017 19:24:25 -0500 Subject: [PATCH] feature/workspaces: add switch-or-create functionality to +workspace-switch --- modules/feature/workspaces/autoload/workspaces.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/modules/feature/workspaces/autoload/workspaces.el b/modules/feature/workspaces/autoload/workspaces.el index 4a6d0d0d6..24c14245c 100644 --- a/modules/feature/workspaces/autoload/workspaces.el +++ b/modules/feature/workspaces/autoload/workspaces.el @@ -121,10 +121,12 @@ perspective or its hash table." (persp-kill name inhibit-kill-p)) ;;;###autoload -(defun +workspace-switch (name) +(defun +workspace-switch (name &optional auto-create-p) "Switch to another workspace." (unless (+workspace-exists-p name) - (error "%s is not an available workspace" name)) + (if auto-create-p + (+workspace-new name) + (error "%s is not an available workspace" name))) (persp-frame-switch name)) (defun +workspace--generate-id ()