(let ((default-directory "~/.emacs.d/site-lisp/"))
  (normal-top-level-add-to-load-path '("."))
  (normal-top-level-add-subdirs-to-load-path))

(load "python")
(load "erlang")
(load "tramp")
(load "wander")

(setq inhibit-startup-message   t)   ; Don't want any startup message

; Backup file creation
(setq make-backup-files t)
(setq backup-directory-alist `(("." . "~/.emacs.d/backups")))
(setq backup-by-copying-when-linked t)
(setq delete-old-versions t
      kept-new-versions 6
      kept-old-versions 2
      version-control t)

(setq search-highlight           t)  ; Highlight search object
(setq query-replace-highlight    t)  ; Highlight query object
(setq mouse-sel-retain-highlight t)  ; Keep mouse highlighting

; Hide menubar
(menu-bar-mode -1)

; Hide the toolbar
(tool-bar-mode -1)

; Hide the scrollbar
(scroll-bar-mode -1)

; Region highlighting without key clobbering
(cua-mode)
(setq-default cua-enable-cua-keys nil)
(global-set-key (kbd "C-^") 'cua-set-rectangle-mark)

; Load theme!
(require 'color-theme)
(load-library "color-theme")
(load-library "color-theme-library")
(color-theme-dark-laptop)

; Buffer cycling
(global-set-key (kbd "M-n") 'next-buffer)
(global-set-key (kbd "M-p") 'previous-buffer)

; Term mode cycling too!
(add-hook 'term-mode-hook
	  (lambda ()
	    (define-key term-raw-map (kbd "M-n") 'next-buffer)
	    (define-key term-raw-map (kbd "M-p") 'previous-buffer)))

; Load magit
(autoload 'magit-status "magit" nil t)

; Load haskell
(autoload 'haskell-mode "haskell-mode" nil t)
(setq auto-mode-alist
      (cons '("\\.hs\\'" . haskell-mode) auto-mode-alist))

; Load markdown
(autoload 'markdown-mode "markdown-mode"
  "Major mode for editing Markdown files" t)
(setq auto-mode-alist
      (cons '("\\.md\\'" . markdown-mode) auto-mode-alist))

; PDF bindings ftw
(require 'doc-view)
(define-key doc-view-mode-map (kbd "C-v") 'doc-view-scroll-up-or-next-page)
(define-key doc-view-mode-map (kbd "M-v") 'doc-view-scroll-down-or-previous-page)
(setq doc-view-continuous t)

; Rationalize file-buffer names
(require 'uniquify)

; Line numbers!
(require 'linum)
(global-linum-mode)

; Column numbers!
(setq column-number-mode t)

; Never use tabs
(setq-default indent-tabs-mode nil)

(defun kill-temp-buffer (buffer)
  (when (equal major-mode 'dired-mode)
    (kill-buffer (buffer-name buffer)))
  (when (string-match "\*.+\*" (buffer-name buffer))
    (when (not (string-match "terminal\\|server\\|Minibuf\\|scratch" (buffer-name buffer))) ; except
      (kill-buffer (buffer-name buffer)))))

(defun kill-temp-buffers nil
  "Kill temporary buffers."
  (interactive)
  (save-excursion
    (setq windows (window-list nil t)) ; Get all windows in frame (visible)
    (setq buffers (buffer-list)) ; Get all buffers
    (dolist (window windows) ; For each window
      (setq buffers (remove (window-buffer window) buffers))) ; Skip buffers in windows
    (dolist (buffer buffers) ; For each buffer
      (kill-temp-buffer buffer))))

(global-set-key (kbd "C-M-k") 'kill-temp-buffers)

;(run-at-time nil 5 'kill-temp-buffers)

;(setq clean-buffer-list-delay-special 15)
;(setq clean-buffer-list-kill-never-buffer-names '("*scratch*" "*server*" "*terminal*"))
;(setq clean-buffer-list-kill-regexps '("\*.+\*"))
;(run-at-time nil 15 'clean-buffer-list)

; Org Mode
(setq org-log-done 'time)
(add-hook 'org-mode-hook
          (lambda ()
            (org-indent-mode)))

(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.
 '(org-agenda-files (quote ("~/todo.org")))