/rejeep-bindings.el
Emacs Lisp | 55 lines | 51 code | 3 blank | 1 comment | 0 complexity | 8fa41edce511886140ece39a6fee0247 MD5 | raw file
Possible License(s): GPL-2.0
1;;; rejeep-bindings.el --- Set up of key bindings 2 3(defun global-set-keys (bindings) 4 "Globally set all BINDINGS." 5 (dolist (binding bindings) 6 (let ((key (car binding)) (command (cadr binding))) 7 (global-set-key (read-kbd-macro key) command)))) 8 9(global-set-keys 10 '(("M-g" goto-line) 11 ("C-x M-w" clipboard-kill-ring-save) 12 ("M-n" open-line-below) 13 ("M-p" open-line-above) 14 ("M-N" drag-stuff-down) 15 ("M-P" drag-stuff-up) 16 ("C-a" back-to-indentation-or-beginning-of-line) 17 ("C-c g" google) 18 ("C-7" comment-or-uncomment-current-line-or-region) 19 ("C-o" occur) 20 ("C-6" linum-mode) 21 ("C-x g" magit-status) 22 ("%" match-paren) 23 ("C-c d" duplicate-current-line-or-region) 24 ("M-+" text-scale-increase) 25 ("M-_" text-scale-decrease) 26 ("C-c n" clean-up-buffer-or-region) 27 ("C-c s" swap-windows) 28 ("C-c r" rename-this-buffer-and-file) 29 ("C-c k" delete-this-buffer-and-file) 30 ("C-0" join-line-or-lines-in-region) 31 ("M-z" zap-up-to-char) 32 ("C-M-p" scroll-down-five) 33 ("C-M-n" scroll-up-five) 34 ("M-k" kill-this-buffer) 35 ("M-o" other-window) 36 ("C-c SPC" ace-jump-mode) 37 ("C-=" er/expand-region) 38 ("M-1" delete-other-windows) 39 ("M-2" split-window-below) 40 ("M-3" split-window-right) 41 ("M-0" delete-window) 42 ("C-M-h" backward-kill-word) 43 ("M-x" smex) 44 ("C-x C-c" 45 (lambda () 46 (interactive) 47 (if (y-or-n-p "Quit Emacs? ") 48 (save-buffers-kill-emacs)))) 49 ("C-8" 50 (lambda () 51 (interactive) 52 (find-file 53 (expand-file-name "init.el" user-emacs-directory)))))) 54 55(provide 'rejeep-bindings)