dotfiles/emacs/super-emacs/key-bindings.el
2017-10-20 17:01:44 -06:00

39 lines
1.3 KiB
EmacsLisp

(defvar super-emacs--my-keyboard-bindings
'(("C-}" . mc/mark-next-like-this)
("C-{" . mc/mark-previous-like-this)
("C-|" . mc/mark-all-like-this)
("C->" . ace-jump-mode)
("C-<" . ace-jump-mode-pop-mark)
("M-/" . undo-tree-visualize)
("C-\," . neotree-toggle)
("C-\"" . theme-looper-enable-next-theme)
("C-M-'" . myterminal-controls-open-controls)
("C-c M-x" . execute-extended-command)
("M-x" . helm-M-x)
("C-x b" . helm-mini)
("C-x C-b" . helm-buffers-list)
("C-x C-f" . helm-find-files)
("C-x C-r" . helm-recentf)
("C-c p h" . helm-projectile)
("M-y" . helm-show-kill-ring)
("C-;" . ace-window)
("C-S-<up>" . buf-move-up)
("C-S-<down>" . buf-move-down)
("C-S-<left>" . buf-move-left)
("C-S-<right>" . buf-move-right)
("<f5>" . super-emacs-reload-current-file)
("C--" . undo)
("C-x p" . previous-multiframe-window)
("s--" . text-scale-decrease)
("s-=" . text-scale-increase)
("C-c m" . magit-status)
))
(defun super-emacs-apply-keyboard-bindings (pair)
"Apply keyboard-bindings for supplied list of key-pair values"
(global-set-key (kbd (car pair))
(cdr pair)))
(mapc 'super-emacs-apply-keyboard-bindings
super-emacs--my-keyboard-bindings)