TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Define prefix commands for all prefixes

Browse source
This commit is contained in:
syl20bnr 2014-11-26 00:10:24 -05:00
parent a2f2f3ab6f
commit 2df606bb68
2 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
contrib/perspectives/packages.el
View file

@ -15,6 +15,10 @@ which require an initialization must be listed explicitly in the list.")
:init
(progn
(persp-mode t)
(define-prefix-command 'perspectives-prefix)
(evil-leader/set-key "P" 'perspectives-prefix)
(define-prefix-command 'perspectives-custom-prefix)
(evil-leader/set-key "Po" 'perspectives-custom-prefix)
(evil-leader/set-key
"Ps" 'persp-switch
"Pk" 'persp-remove-buffer

38
spacemacs/packages.el
View file

@ -672,6 +672,44 @@ determine the state to enable when escaping from the insert state.")
(setq evil-leader/in-all-states t
evil-leader/leader "SPC"
evil-leader/non-normal-prefix "s-")
;; give name to spacemacs prefixes
(dolist (x '(("a" . "applications")
("as" . "applications-shells")
("b" . "buffers")
("bm" . "buffers-move")
("c" . "comments")
("e" . "errors")
("f" . "files")
("fe" . "files-emacs/spacemacs")
("g" . "git/versions-control")
("gc" . "smeargle")
("h" . "helm/help/highlight")
("hd" . "help-describe")
("i" . "insert")
("j" . "join/split")
("n" . "narrow/numbers")
("p" . "projects")
("p4" . "perforce")
("r" . "registers/rings")
("s" . "search/symbol")
("sr" . "symbol-range")
("S" . "spelling")
("t" . "toggles")
("tm" . "toggles-modeline")
("w" . "windows")
("wp" . "windows-popup")
("ws" . "windows-size")
("x" . "text")
("xd" . "text-delete")
("xg" . "text-google-translate")
("xm" . "text-move")
("xt" . "text-transpose")
("xw" . "text-words")
("z" . "z")))
(let ((key (car x))
(prefix-command (intern (format "%s-prefix" (cdr x)))))
(define-prefix-command prefix-command)
(evil-leader/set-key key prefix-command)))
(global-evil-leader-mode))
:config
(progn