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

feature/workspaces: fix +workspace/cycle; add +workspace/switch-{left,right}

Browse source
This commit is contained in:
Henrik Lissner 2017-04-08 23:28:06 -04:00
parent cff600935a
commit 2f9c158645
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -316,7 +316,7 @@ end of the workspace list."
(interactive (list 1)) (interactive (list 1))
(condition-case ex (condition-case ex
(let ((persp-switch-wrap t)) (let ((persp-switch-wrap t))
(dotimes (i n) (dotimes (i (abs n))
(if (> n 0) (if (> n 0)
(persp-next) (persp-next)
(persp-prev))) (persp-prev)))
@ -324,6 +324,12 @@ end of the workspace list."
(+workpace/display))) (+workpace/display)))
('error (+workspace-error (cadr ex) t)))) ('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 ;;;###autoload
(defun +workspace/close-window-or-workspace () (defun +workspace/close-window-or-workspace ()
"Close the selected window. If it's the last window in the workspace, close "Close the selected window. If it's the last window in the workspace, close