;;; rejeep-bindings.el --- Set up of key bindings

(defun global-set-keys (bindings)
  "Globally set all BINDINGS."
  (dolist (binding bindings)
    (let ((key (car binding)) (command (cadr binding)))
      (global-set-key (read-kbd-macro key) command))))

(global-set-keys
 '(("M-g" goto-line)
   ("C-x M-w" clipboard-kill-ring-save)
   ("M-n" open-line-below)
   ("M-p" open-line-above)
   ("M-N" drag-stuff-down)
   ("M-P" drag-stuff-up)
   ("C-a" back-to-indentation-or-beginning-of-line)
   ("C-c g" google)
   ("C-7" comment-or-uncomment-current-line-or-region)
   ("C-o" occur)
   ("C-6" linum-mode)
   ("C-x g" magit-status)
   ("%" match-paren)
   ("C-c d" duplicate-current-line-or-region)
   ("M-+" text-scale-increase)
   ("M-_" text-scale-decrease)
   ("C-c n" clean-up-buffer-or-region)
   ("C-c s" swap-windows)
   ("C-c r" rename-this-buffer-and-file)
   ("C-c k" delete-this-buffer-and-file)
   ("C-0" join-line-or-lines-in-region)
   ("M-z" zap-up-to-char)
   ("C-M-p" scroll-down-five)
   ("C-M-n" scroll-up-five)
   ("M-k" kill-this-buffer)
   ("M-o" other-window)
   ("C-c SPC" ace-jump-mode)
   ("C-=" er/expand-region)
   ("M-1" delete-other-windows)
   ("M-2" split-window-below)
   ("M-3" split-window-right)
   ("M-0" delete-window)
   ("C-M-h" backward-kill-word)
   ("M-x" smex)
   ("C-x C-c"
    (lambda ()
      (interactive)
      (if (y-or-n-p "Quit Emacs? ")
          (save-buffers-kill-emacs))))
   ("C-8"
    (lambda ()
      (interactive)
      (find-file
       (expand-file-name "init.el" user-emacs-directory))))))

(provide 'rejeep-bindings)