dotemacs

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(auto-save-default nil)
 '(backup-inhibited t)
 '(column-number-mode t)
 '(cursor-type (quote bar) t)
 '(default-frame-alist (quote ((top . 200) (left . 1000) (width . 80) (height . 40))))
 '(delete-selection-mode t)
 '(desktop-save-mode t)
 '(icomplete-mode t)
 '(ido-mode t nil (ido))
 '(inhibit-startup-screen t)
 '(initial-scratch-message nil)
 '(kill-do-not-save-duplicates t)
 '(mouse-wheel-follow-mouse 't) ;; scroll window under mouse
 '(mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
 '(mouse-wheel-scroll-amount '(4 ((shift) . 1))) ;; 3 lines at a time
 '(recentf-mode t)
 '(require-final-newline t)
 '(scroll-preserve-screen-position nil)
 '(scroll-step 1)
 '(set-mark-command-repeat-pop t)
 '(show-paren-mode t)
 '(size-indication-mode)
 '(tool-bar-mode nil)
 '(visible-bell t)
 '(winner-mode t nil (winner)))

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:height 170)))))

;; Package.el customization
(package-initialize)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.milkbox.net/packages/") t)

;; Custom keys
(global-set-key (kbd "<kp-delete>") 'delete-forward-char) ; Apple keyboard
(global-set-key (kbd "C-c C-d") 'kill-whole-line)
(global-set-key (kbd "C-c C-f") 'align-regexp)
(global-set-key (kbd "C-x C-b") 'buffer-menu)
(global-set-key (kbd "M-p") 'scroll-down-line)
(global-set-key (kbd "M-n") 'scroll-up-line)
(global-set-key [f5] 'hl-line-mode)
(global-set-key [f6] 'recentf-open-files)
(global-set-key [f7] 'paredit-mode)
(global-set-key [f8] 'autopair-mode)
(global-set-key [f9] 'nrepl-jack-in)
(global-set-key [f12] 'centered-cursor-mode)
(global-set-key (kbd "C-c M-o") 'erase-buffer)
(global-set-key (kbd "<C-wheel-down>") 'text-scale-decrease)
(global-set-key (kbd "<C-wheel-up>") 'text-scale-increase)
(global-set-key (kbd "M-§") 'next-multiframe-window)
(global-set-key (kbd "C-c SPC") 'ace-jump-mode)
(global-set-key (kbd "C-c SPC") 'ace-jump-mode)
(global-set-key (kbd "C-;") 'ace-jump-line-mode)
(global-set-key (kbd "C-c b") 'nav-toggle)

;; enable disabled commands
(put 'erase-buffer 'disabled nil)
(put 'narrow-to-region 'disabled nil)

;; theme
(when window-system (load-theme 'solarized-light t))

;; delete trailing whitespace on save
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; save place
(require 'saveplace)
(setq-default save-place t)

;; yes-or-no
(defalias 'yes-or-no-p 'y-or-n-p)

;; centered-cursor-mode
(require 'centered-cursor-mode)

;; emacs-nav
(require 'nav)
(nav-disable-overeager-window-splitting)

;; elscreen
(setq elscreen-display-tab nil)

;; savehist
(savehist-mode t)

;; rainbow delimiters
(global-rainbow-delimiters-mode)

;; Clojure
(add-hook 'clojure-mode-hook 'paredit-mode)

;; nrepl
(add-hook 'nrepl-interaction-mode-hook 'nrepl-turn-on-eldoc-mode)
(add-hook 'nrepl-mode-hook 'paredit-mode)
(setq nrepl-popup-stacktraces nil)
(add-to-list 'same-window-buffer-names "*nrepl*")

;; Auto complete
(require 'auto-complete-config)
(ac-config-default)
(define-key ac-completing-map "\M-/" 'ac-stop)
(setq ac-auto-start 3)
(setq ac-delay 0.75)
(setq ac-auto-show-menu 1.5)
(setq ac-quick-help-delay 2)

;; ac-nrepl
(require 'ac-nrepl)
(add-hook 'nrepl-mode-hook 'ac-nrepl-setup)
(add-hook 'nrepl-interaction-mode-hook 'ac-nrepl-setup)
(eval-after-load "auto-complete" '(add-to-list 'ac-modes 'nrepl-mode))

;; Haskell
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
(add-hook 'haskell-mode-hook 'paredit-mode)

;; Scala
(add-hook 'scala-mode-hook 'autopair-mode)