/rejeep-bindings.el

 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)