(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-" . buf-move-up) ("C-S-" . buf-move-down) ("C-S-" . buf-move-left) ("C-S-" . buf-move-right) ("" . 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)