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

SPC TAB N binding (#5173)

Browse source 
* Introduce `SPC TAB N` binding

* Add vanilla Emacs binding
This commit is contained in:
Colin Woodbury 2021-07-08 22:13:13 -07:00 • committed by GitHub
parent 36d186d1cd
commit 42ff369142
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
modules/config/default/+emacs-bindings.el
View file

@ -365,6 +365,7 @@
:desc "Display workspaces" "d" #'+workspace/display :desc "Display workspaces" "d" #'+workspace/display
:desc "Rename workspace" "r" #'+workspace/rename :desc "Rename workspace" "r" #'+workspace/rename
:desc "Create workspace" "c" #'+workspace/new :desc "Create workspace" "c" #'+workspace/new
:desc "Create named workspace" "C" #'+workspace/new-named
:desc "Delete workspace" "k" #'+workspace/delete :desc "Delete workspace" "k" #'+workspace/delete
:desc "Save workspace" "S" #'+workspace/save :desc "Save workspace" "S" #'+workspace/save
:desc "Switch to other workspace" "o" #'+workspace/other :desc "Switch to other workspace" "o" #'+workspace/other

1
modules/config/default/+evil-bindings.el
View file

@ -306,6 +306,7 @@
:desc "Switch workspace" "." #'+workspace/switch-to :desc "Switch workspace" "." #'+workspace/switch-to
:desc "Switch to last workspace" "`" #'+workspace/other :desc "Switch to last workspace" "`" #'+workspace/other
:desc "New workspace" "n" #'+workspace/new :desc "New workspace" "n" #'+workspace/new
:desc "New named workspace" "N" #'+workspace/new-named
:desc "Load workspace from file" "l" #'+workspace/load :desc "Load workspace from file" "l" #'+workspace/load
:desc "Save workspace to file" "s" #'+workspace/save :desc "Save workspace to file" "s" #'+workspace/save
:desc "Delete session" "x" #'+workspace/kill-session :desc "Delete session" "x" #'+workspace/kill-session

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

@ -306,6 +306,12 @@ workspace, otherwise the new workspace is blank."
(+workspace/display))) (+workspace/display)))
((debug error) (+workspace-error (cadr e) t)))) ((debug error) (+workspace-error (cadr e) t))))
;;;###autoload
(defun +workspace/new-named (name)
"Create a new workspace with a given NAME."
(interactive "sWorkspace Name: ")
(+workspace/new name))
;;;###autoload ;;;###autoload
(defun +workspace/switch-to (index) (defun +workspace/switch-to (index)
"Switch to a workspace at a given INDEX. A negative number will start from the "Switch to a workspace at a given INDEX. A negative number will start from the