;; Disable the startup screen and don't waste screen estate.
(setq inhibit-startup-screen t)
(menu-bar-mode -1)
(toggle-scroll-bar -1)
(tool-bar-mode -1)
(fringe-mode 1)
(setq ring-bell-function 'ignore)
(set-face-attribute 'default nil :height 70)
(column-number-mode)
(auto-revert-mode)

;; Set up backup behavior.
(setq delete-old-versions t)
(setq backup-directory-alist '(("." . "~/.cache/emacs_backups")))
(setq auto-save-file-name-transforms '((".*" "~/.emacs.d/auto-save-list/" t)))

;; Increase the threshold for garbage collection for speed's sake.
(setq gc-cons-threshold (* 50 1024 1024))

;; Follow symlinks automatically.
(setq vc-follow-symlinks t)

;; Enable y/n answers instead of yes/no.
(fset 'yes-or-no-p 'y-or-n-p)

;; New line at the end of file.
(setq require-final-newline t)

(setq mouse-autoselect-window t focus-follows-mouse t)

;; Setup repositories.
(require 'package)
(setq package-archives '(("org"       . "http://orgmode.org/elpa/")
			 ("gnu"       . "http://elpa.gnu.org/packages/")
			 ("melpa"     . "https://melpa.org/packages/")
			 ("marmalade" . "http://marmalade-repo.org/packages/")))
(package-initialize)

;; Bootstrap use-package.
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))
(require 'use-package)

(use-package paradox
  :commands (paradox-list-packages)
  :config
  (setq paradox-spinner-type 'progress-bar
	paradox-execute-asynchronously t
	paradox-github-token '03f5cc27080c6bd789432c0ba11c3bbe245f4f20)
  (general-define-key
   :keymaps 'paradox-menu-mode-map
   :states 'emacs
   "gg"  'beginning-of-buffer
   "G"   'end-of-buffer
   "C-d" 'evil-scroll-page-down
   "C-u" 'evil-scroll-page-up
   "j"   'paradox-next-entry
   "k"   'paradox-previous-entry
   "n"   'paradox-next-describe
   "p"   'paradox-previous-describe))

;; Provide more sensible unique buffer names.
(require 'uniquify)

(use-package undo-tree
  :config
  (setq undo-tree-visualizer-timestamps nil
	undo-tree-visualizer-diff t)
  (global-undo-tree-mode))

(use-package evil
  :ensure t
  :init
  (setq evil-search-module 'evil-search
	evil-ex-complete-emacs-commands nil
	evil-vsplit-window-right t
	evil-split-window-below t
	evil-shift-round nil
	evil-want-C-u-scroll t
	evil-want-C-d-scroll t)
  (evil-mode))