  `(magit-diff-file-heading
    ((t (:weight, 'normal)))))
 
-;;; Theme.
-(load-theme 'firebelly t)
-
-;; Some themes may need the following method to load instead.
-; (if (daemonp)
-;     (add-hook 'after-make-frame-functions
-;               (lambda (frame)
-;               (select-frame frame)
-;                 (load-theme 'firebelly t)))
-;     (load-theme 'firebelly t))
-
-(let
-  ((c0 "#ac4142")
-   (c1 "#d28445")
-   (c2 "#f4bf75")
-   (c3 "#90a959")
-   (c4 "#75b5aa")
-   (c5 "#6a9fb5")
-   (c6 "#aa759f")
-   (c7 "#8f5536")
-
-   (g0 "#222222")
-   (g1 "#292929")
-   (g2 "#444444")
-   (g3 "#555555")
-   (g4 "#666666")
-   (g5 "#777777")
-   (g6 "#888888")
-   (g7 "#999999"))
-
-  (custom-set-faces
-   `(cursor
-     ((t (:background, c0))))
-   `(font-lock-comment-delimiter-face
-     ((t (:foreground, g2))))
-   `(font-lock-string-face
-     ((t (:background, g0))))
-   `(font-lock-variable-name-face
-     ((t (:foreground, c0))))
-   `(fringe
-     ((t (:background, g1))))
-   `(hl-line
-     ((t (:background, g1))))
-   `(isearch
-     ((t (:background, c2 :foreground, g0))))
-   `(lazy-highlight
-     ((t (:background, c5 :foreground, g0))))
-   `(linum
-     ((t (:background, g0 :foreground, g2))))
-   `(show-paren-match
-     ((t (:background, c5 :foreground, g0))))
-   `(trailing-whitespace
-     ((t (:background, c7))))
-   `(vertical-border
-     ((t (:background, g0))))
-   `(whitespace-tab
-     ((t (:background, c7))))
-   `(whitespace-trailing
-     ((t (:background, c7))))
-
-   `(sh-quoted-exec
-     ((t (:foreground, c4)))))
-
-  (setq fci-rule-color g1))
-
-;;; Basic.
+;;;; Theme.
+(load-theme 'redbelly t)
+
+;;;; Basic.
 (setq auto-save-default nil)
 (setq create-lockfiles nil)
 (setq backup-directory-alist `(("." . "~/.backup")))

(setq company-idle-delay 0)
(add-hook 'after-init-hook 'global-company-mode)

;;; Appearance.
(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil)
(set-face-italic-p 'italic nil)

;; to apply to text and prog modes.
;; http://www.gnu.org/software/emacs/manual/html_node/elisp/Basic-Major-Modes.html#index-special_002dmode

;;; Basic.
(defun my-minibuffer-keyboard-quit ()
  "Abort recursive edit.
  In Delete Selection mode, if the mark is active, just deactivate it;
