From 2f9c15864569a19d2de2cbc43e4034c696ad0681 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 8 Apr 2017 23:28:06 -0400 Subject: [PATCH] feature/workspaces: fix +workspace/cycle; add +workspace/switch-{left,right} --- modules/feature/workspaces/autoload/workspaces.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/modules/feature/workspaces/autoload/workspaces.el b/modules/feature/workspaces/autoload/workspaces.el index 7c1bfb319..aae398217 100644 --- a/modules/feature/workspaces/autoload/workspaces.el +++ b/modules/feature/workspaces/autoload/workspaces.el @@ -316,7 +316,7 @@ end of the workspace list." (interactive (list 1)) (condition-case ex (let ((persp-switch-wrap t)) - (dotimes (i n) + (dotimes (i (abs n)) (if (> n 0) (persp-next) (persp-prev))) @@ -324,6 +324,12 @@ end of the workspace list." (+workpace/display))) ('error (+workspace-error (cadr ex) t)))) +;;;###autoload +(defun +workspace/switch-left () (interactive) (+workspace/cycle -1)) + +;;;###autoload +(defun +workspace/switch-right () (interactive) (+workspace/cycle +1)) + ;;;###autoload (defun +workspace/close-window-or-workspace () "Close the selected window. If it's the last window in the workspace, close