flatui-theme.el

;;; flatui-theme.el --- A color theme for Emacs based on flatuicolors.com

;; Copyright (C) 2014 John Louis Del Rosario

;; Author: John Louis Del Rosario <john2x@gmail.com>
;; URL: https://github.com/john2x/flatui-theme.el
;; Version: 0.2

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; A light theme based on the colors from http://flatuicolors.com.
;; Vim version can be found at https://github.com/john2x/flatui.vim.


;;; Credits:

;; This theme was modified from zenburn-theme.el by Bozhidar Batsov
;; https://github.com/bbatsov/zenburn-emacs

;;; Code:

(deftheme flatui "FlatUI based color theme.")

;;; Color Palette

(defvar flatui-colors-alist
  '(("clouds"          . "#ecf0f1")
    ("silver"          . "#dfe4ea")
    ("concrete"        . "#95a5a6")
    ("asbestos"        . "#7f8c8d")
    ("wet-asphalt"     . "#34495e")
    ("midnight-blue"   . "#2c3e50")

    ("turquoise"       . "#1abc9c")
    ("green-sea"       . "#16a085")

    ("emerald"         . "#2ecc71")
    ("nephritis"       . "#27ae60")

    ("peter-river"     . "#2492db")
    ("belize-hole"     . "#0a74b9")

    ("amethyst"        . "#9b59b6")
    ("wisteria"        . "#8e44ad")

    ("sun-flower"      . "#f1c40f")
    ("orange"          . "#d98c10")

    ("carrot"          . "#e67e22")
    ("pumpkin"         . "#d35400")

    ("alizarin"        . "#e74c3c")
    ("pomegranate"     . "#c0392b"))
  "List of FlatUI colors.
Each element has the form (NAME . HEX). ")

(defmacro flatui/with-color-variables (&rest body)
  "`let' bind all colors defined in `flatui-colors-alist' around BODY.
Also bind `class' to ((class color) (min-colors 89))."
  (declare (indent 0))
  `(let ((class '((class color) (min-colors 89)))
         ,@(mapcar (lambda (cons)
                     (list (intern (car cons)) (cdr cons)))
                   flatui-colors-alist))
     ,@body))

;;; Theme Faces
(flatui/with-color-variables
  (custom-theme-set-faces
   'flatui
;;;; Built-in
;;;;; basic coloring
   '(button ((t (:underline t))))
   `(link ((t (:foreground ,peter-river :underline t :weight bold))))
   `(link-visited ((t (:foreground ,amethyst :underline t :weight normal))))
   `(default ((t (:foreground ,midnight-blue :background ,clouds))))
   `(cursor ((t (:foreground ,midnight-blue :background ,wet-asphalt))))
   `(escape-glyph ((t (:foreground ,sun-flower :bold t))))
   `(fringe ((t (:foreground ,wet-asphalt :background ,silver))))
   `(header-line ((t (:foreground ,green-sea
                                  :background ,wet-asphalt
                                  :box (:line-width -1 :style released-button)))))
   `(highlight ((t (:background ,peter-river))))
   `(success ((t (:foreground ,nephritis :weight bold))))
   `(warning ((t (:foreground ,pumpkin :weight bold))))
;;;;; company-mode
   `(company-tooltip ((t (:foreground ,midnight-blue :background ,clouds))))
   ;; company-scrollbar-fg
   `(company-tooltip-common
     ((t (:foreground ,pomegranate :weight bold :background ,clouds))))
   `(company-tooltip-selection
     ((t (:background ,sun-flower :weight bold :foreground ,midnight-blue))))
   `(company-tooltip-common-selection
     ((t (:foreground ,pomegranate :weight bold :background ,sun-flower))))
   `(company-scrollbar-fg
     ((t (:background ,midnight-blue))))
   `(company-scrollbar-bg
     ((t (:background ,silver))))
;;;;; compilation
   `(compilation-column-face ((t (:foreground ,orange))))
   `(compilation-enter-directory-face ((t (:foreground ,green-sea))))
   `(compilation-error-face ((t (:foreground ,pomegranate :weight bold :underline t))))
   `(compilation-face ((t (:foreground ,midnight-blue))))
   `(compilation-info-face ((t (:foreground ,peter-river))))
   `(compilation-info ((t (:foreground ,nephritis :underline t))))
   `(compilation-leave-directory-face ((t (:foreground ,wisteria))))
   `(compilation-line-face ((t (:foreground ,sun-flower))))
   `(compilation-line-number ((t (:foreground ,wisteria))))
   `(compilation-message-face ((t (:foreground ,wet-asphalt))))
   `(compilation-warning-face ((t (:foreground ,pumpkin :weight bold :underline t))))
   `(compilation-mode-line-exit ((t (:foreground ,turquoise :weight bold))))
   `(compilation-mode-line-fail ((t (:foreground ,pomegranate :weight bold))))
   `(compilation-mode-line-run ((t (:foreground ,orange :weight bold))))
;;;;; grep
   `(grep-context-face ((t (:foreground ,wet-asphalt))))
   `(grep-error-face ((t (:foreground ,pomegranate :weight bold :underline t))))
   `(grep-hit-face ((t (:foreground ,turquoise :weight bold))))
   `(grep-match-face ((t (:foreground ,sun-flower :weight bold))))
   `(match ((t (:background ,turquoise :foreground ,wet-asphalt))))
;;;;; isearch
   `(isearch ((t (:foreground ,clouds :weight bold :background ,alizarin))))
   `(isearch-fail ((t (:foreground ,sun-flower :weight bold :background ,pomegranate))))
   `(lazy-highlight ((t (:foreground ,clouds :weight bold :background ,sun-flower))))

   `(menu ((t (:foreground ,midnight-blue :background ,silver))))
   `(minibuffer-prompt ((t (:foreground ,wet-asphalt :weight bold))))
   `(region ((,class (:background ,sun-flower :foreground ,midnight-blue))
             (t :inverse-video t)))
   `(secondary-selection ((t (:background ,turquoise))))
   `(idle-highlight ((,class (:background ,turquoise :foreground ,midnight-blue))
                     (t :inverse-video t)))
   `(trailing-whitespace ((t (:background ,alizarin))))
   `(vertical-border ((t (:foreground ,silver))))
;;;;; font lock
   `(font-lock-builtin-face ((t (:foreground ,green-sea))))
   `(font-lock-comment-face ((t (:foreground ,asbestos))))
   `(font-lock-comment-delimiter-face ((t (:foreground ,concrete))))
   `(font-lock-constant-face ((t (:foreground ,carrot))))
   `(font-lock-doc-face ((t (:foreground ,belize-hole :background ,silver))))
   `(font-lock-function-name-face ((t (:foreground ,wet-asphalt :weight bold))))
   `(font-lock-keyword-face ((t (:foreground ,orange))))
   `(font-lock-negation-char-face ((t (:foreground ,peter-river :weight bold))))
   `(font-lock-preprocessor-face ((t (:foreground ,amethyst :weight bold))))
   `(font-lock-regexp-grouping-construct ((t (:foreground ,orange :weight bold))))
   `(font-lock-regexp-grouping-backslash ((t (:foreground ,amethyst :weight bold))))
   `(font-lock-string-face ((t (:foreground ,belize-hole))))
   `(font-lock-type-face ((t (:foreground ,peter-river))))
   `(font-lock-variable-name-face ((t (:foreground ,wisteria))))
   `(font-lock-warning-face ((t (:foreground ,pumpkin :weight bold))))

   `(c-annotation-face ((t (:inherit font-lock-constant-face))))
;;;; Third-party
;;;;; ace-jump
   `(ace-jump-face-background
     ((t (:foreground ,asbestos :background ,clouds :inverse-video nil))))
   `(ace-jump-face-foreground
     ((t (:foreground ,pomegranate :background ,clouds :weight bold :inverse-video nil))))
   `(avy-lead-face ((t (:foreground ,clouds :background ,wisteria))))
   `(avy-lead-face-0 ((t (:foreground ,midnight-blue :background ,sun-flower :weight bold))))
   `(avy-lead-face-1 ((t (:foreground ,clouds :background ,belize-hole))))
   `(avy-lead-face-1 ((t (:foreground ,clouds :background ,green-sea))))
;;;;; agda2-mode
   `(agda2-highlight-keyword-face ((t (:inherit font-lock-keyword-face))))
   `(agda2-highlight-module-face ((t (:inherit font-lock-type-face))))
   `(agda2-highlight-datatype-face ((t (:inherit font-lock-type-face))))
   `(agda2-highlight-function-face ((t (:italic nil :weight normal :inherit font-lock-function-name-face))))
   `(agda2-highlight-inductive-constructor-face ((t (:foreground ,amethyst))))
   `(agda2-highlight-primitive-type-face ((t (:foreground ,pomegranate))))
   `(agda2-highlight-number-face ((t (:foreground ,green-sea))))
   `(agda2-highlight-record-face ((t (:foreground ,belize-hole))))
   `(agda2-highlight-operator-face ((t (:foreground ,amethyst))))
   `(agda2-highlight-primitive-face ((t (:foreground ,alizarin))))
   `(agda2-highlight-postulate-face ((t (:foreground ,nephritis))))
;;;;; anzu
   `(anzu-mode-line ((t (:foreground ,turquoise :weight bold))))
;;;;; auto-complete
   `(ac-candidate-face ((t (:background ,concrete :foreground ,midnight-blue))))
   `(ac-selection-face ((t (:background ,asbestos :foreground ,midnight-blue))))
   `(popup-tip-face ((t (:background ,sun-flower :foreground ,midnight-blue))))
   `(popup-scroll-bar-foreground-face ((t (:background ,asbestos))))
   `(popup-scroll-bar-background-face ((t (:background ,silver))))
   `(popup-isearch-match ((t (:background ,clouds :foreground ,midnight-blue))))
;;;;; TODO: bm
   ;; `(bm-face ((t (:background ,zenburn-yellow-1 :foreground ,zenburn-bg))))
   ;; `(bm-fringe-face ((t (:background ,zenburn-yellow-1 :foreground ,zenburn-bg))))
   ;; `(bm-fringe-persistent-face ((t (:background ,zenburn-green-1 :foreground ,zenburn-bg))))
   ;; `(bm-persistent-face ((t (:background ,zenburn-green-1 :foreground ,zenburn-bg))))
;;;;; cargo
   `(cargo-process--ok-face ((t (:inherit compilation-info :underline nil))))
   `(cargo-process--error-face ((t (:inherit compilation-error-face))))
   `(cargo-process--warning-face ((t (:inherit compilation-warning-face))))
   `(cargo-process--pointer-face ((t (:foreground ,wisteria))))
   `(cargo-process--standard-face ((t (:inherit default :weight bold))))
;;;;; clojure-test-mode
   `(clojure-test-failure-face ((t (:foreground ,carrot :weight bold :underline t))))
   `(clojure-test-error-face ((t (:foreground ,alizarin :weight bold :underline t))))
   `(clojure-test-success-face ((t (:foreground ,emerald :weight bold :underline t))))
;;;;; diff
   `(diff-added ((,class (:foreground ,nephritis :background ,clouds))
                 (t (:foreground ,nephritis :background ,clouds))))
   `(diff-changed ((t (:foreground ,carrot))))
   `(diff-context ((t (:foreground ,concrete))))
   `(diff-removed ((,class (:foreground ,alizarin :background ,clouds))
                   (t (:foreground ,alizarin :background ,clouds))))
   `(diff-refine-added ((t :foreground ,clouds :background ,emerald :weight bold)))
   `(diff-refine-change ((t :inherit diff-changed :weight bold)))
   `(diff-refine-removed ((t :foreground ,clouds :background ,pomegranate :weight bold)))
   `(diff-header ((,class (:foreground ,midnight-blue :weight bold))
                  (t (:foreground ,midnight-blue :weight bold))))
   `(diff-file-header
     ((,class (:foreground ,midnight-blue :weight bold))
      (t (:foreground ,midnight-blue :weight bold))))
   `(diff-hunk-header
     ((,class (:foreground ,wisteria :weight bold))
      (t (:foreground ,wisteria :weight bold))))
;;;;; diff-hl
   `(diff-hl-insert ((t (:foreground ,emerald    :background ,emerald))))
   `(diff-hl-delete ((t (:foreground ,alizarin   :background ,alizarin))))
   `(diff-hl-change ((t (:foreground ,sun-flower :background ,sun-flower))))
;;;;; dired/dired+/dired-subtree
   `(diredp-display-msg ((t (:foreground ,belize-hole))))
   `(diredp-compressed-file-suffix ((t (:foreground ,amethyst))))
   `(diredp-date-time ((t (:foreground ,carrot))))
   `(diredp-deletion ((t (:foreground ,alizarin))))
   `(diredp-deletion-file-name ((t (:foreground ,alizarin))))
   `(diredp-dir-heading ((t (:foreground ,peter-river :background ,silver :weight bold))))
   `(diredp-dir-name ((t (:foreground ,peter-river))))
   `(diredp-dir-priv ((t (:foreground ,peter-river))))
   `(diredp-exec-priv ((t (:foreground ,carrot))))
   `(diredp-executable-tag ((t (:foreground ,pumpkin))))
   `(diredp-file-name ((t (:foreground ,midnight-blue))))
   `(diredp-file-suffix ((t (:foreground ,wisteria))))
   `(diredp-flag-mark ((t (:foreground ,sun-flower))))
   `(diredp-flag-mark-line ((t (:foreground ,orange))))
   `(diredp-ignored-file-name ((t (:foreground ,concrete))))
   `(diredp-link-priv ((t (:foreground ,amethyst))))
   `(diredp-mode-line-flagged ((t (:foreground ,sun-flower))))
   `(diredp-mode-line-marked ((t (:foreground ,orange))))
   `(diredp-no-priv ((t (:foreground ,midnight-blue))))
   `(diredp-number ((t (:foreground ,belize-hole))))
   `(diredp-other-priv ((t (:foreground ,wet-asphalt))))
   `(diredp-rare-priv ((t (:foreground ,pumpkin))))
   `(diredp-read-priv ((t (:foreground ,green-sea))))
   `(diredp-symlink ((t (:foreground ,clouds :background ,amethyst))))
   `(diredp-write-priv ((t (:foreground ,pumpkin))))
   `(dired-subtree-depth-1-face ((t (:background ,silver))))
   `(dired-subtree-depth-2-face ((t (:background ,concrete))))
   `(dired-subtree-depth-3-face ((t (:background ,asbestos))))
   `(dired-async-mode-message ((t (:foreground ,alizarin :background nil))))
   `(dired-async-message ((t (:foreground ,midnight-blue))))

;;;;; ediff
   `(ediff-current-diff-A ((t (:foreground ,midnight-blue :background ,alizarin))))
   `(ediff-current-diff-Ancestor ((t (:foreground ,midnight-blue :background ,alizarin))))
   `(ediff-current-diff-B ((t (:foreground ,midnight-blue :background ,emerald))))
   `(ediff-current-diff-C ((t (:foreground ,midnight-blue :background ,peter-river))))
   `(ediff-even-diff-A ((t (:background ,clouds))))
   `(ediff-even-diff-Ancestor ((t (:background ,clouds))))
   `(ediff-even-diff-B ((t (:background ,silver))))
   `(ediff-even-diff-C ((t (:background ,silver))))
   `(ediff-fine-diff-A ((t (:foreground ,midnight-blue :background ,pomegranate :weight bold))))
   `(ediff-fine-diff-Ancestor ((t (:foreground ,midnight-blue :background ,alizarin weight bold))))
   `(ediff-fine-diff-B ((t (:foreground ,midnight-blue :background ,nephritis :weight bold))))
   `(ediff-fine-diff-C ((t (:foreground ,midnight-blue :background ,peter-river :weight bold ))))
   `(ediff-odd-diff-A ((t (:background ,silver))))
   `(ediff-odd-diff-Ancestor ((t (:background ,silver))))
   `(ediff-odd-diff-B ((t (:background ,silver))))
   `(ediff-odd-diff-C ((t (:background ,silver))))
;;;;; TODO: erc
;;    `(erc-action-face ((t (:inherit erc-default-face))))
;;    `(erc-bold-face ((t (:weight bold))))
;;    `(erc-current-nick-face ((t (:foreground ,zenburn-blue :weight bold))))
;;    `(erc-dangerous-host-face ((t (:inherit font-lock-warning-face))))
;;    `(erc-default-face ((t (:foreground ,zenburn-fg))))
;;    `(erc-direct-msg-face ((t (:inherit erc-default))))
;;    `(erc-error-face ((t (:inherit font-lock-warning-face))))
;;    `(erc-fool-face ((t (:inherit erc-default))))
;;    `(erc-highlight-face ((t (:inherit hover-highlight))))
   `(erc-input-face ((t (:inherit default))))
;;    `(erc-keyword-face ((t (:foreground ,zenburn-blue :weight bold))))
   `(erc-nick-default-face ((t (:foreground ,belize-hole :weight bold))))
   `(erc-my-nick-face ((t (:foreground ,nephritis :weight bold))))
;;    `(erc-nick-msg-face ((t (:inherit erc-default))))
   `(erc-notice-face ((t (:foreground ,pomegranate))))
;;    `(erc-pal-face ((t (:foreground ,zenburn-orange :weight bold))))
   `(erc-prompt-face ((t (:foreground ,wisteria :weight bold))))
   `(erc-timestamp-face ((t (:foreground ,wisteria))))
;;    `(erc-underline-face ((t (:underline t))))
;;;;; eshell
   `(eshell-prompt ((t (:foreground ,pomegranate :weight bold))))
   `(eshell-ls-archive ((t (:foreground ,amethyst :weight bold))))
   `(eshell-ls-backup ((t (:inherit font-lock-comment-face))))
   `(eshell-ls-clutter ((t (:inherit font-lock-comment-face))))
   `(eshell-ls-directory ((t (:foreground ,peter-river :weight bold))))
   `(eshell-ls-executable ((t (:foreground ,pumpkin))))
   `(eshell-ls-unreadable ((t (:foreground ,concrete))))
   `(eshell-ls-missing ((t (:inherit font-lock-warning-face))))
   `(eshell-ls-product ((t (:inherit font-lock-doc-face))))
   `(eshell-ls-special ((t (:foreground ,sun-flower :weight bold))))
   `(eshell-ls-symlink ((t (:foreground ,clouds :background ,amethyst))))
;;;;; flx
   `(flx-highlight-face ((t (:foreground ,orange :weight bold))))
;;;;; flycheck
   `(flycheck-error ((t (:underline (:color ,alizarin)))))
   `(flycheck-warning ((t (:underline (:color ,sun-flower)))))
   `(flycheck-info ((t (:underline (:color ,amethyst)))))
   `(flycheck-fringe-error ((t (:foreground ,pomegranate :weight bold))))
   `(flycheck-fringe-warning ((t (:foreground ,orange :weight bold))))
   `(flycheck-fringe-info ((t (:foreground ,wisteria :weight bold))))
   `(flycheck-mode-line-error ((t (:foreground "red" :weight bold))))
   `(flycheck-mode-line-warning ((t (:foreground ,sun-flower :weight bold))))
;;;;; flymake
   `(flymake-errline
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,alizarin)
                   :inherit unspecified :foreground unspecified :background unspecified))
      (t (:foreground ,alizarin :weight bold :underline t))))
   `(flymake-warnline
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,orange)
                   :inherit unspecified :foreground unspecified :background unspecified))
      (t (:foreground ,orange :weight bold :underline t))))
   `(flymake-infoline
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,wisteria)
                   :inherit unspecified :foreground unspecified :background unspecified))
      (t (:foreground ,wisteria :weight bold :underline t))))
;;;;; flyspell
   `(flyspell-duplicate
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,orange) :inherit unspecified))
      (t (:foreground ,orange :weight bold :underline t))))
   `(flyspell-incorrect
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,alizarin) :inherit unspecified))
      (t (:foreground ,alizarin :weight bold :underline t))))
;;;;; TODO: full-ack
   ;; `(ack-separator ((t (:foreground ,zenburn-fg))))
   ;; `(ack-file ((t (:foreground ,zenburn-blue))))
   ;; `(ack-line ((t (:foreground ,zenburn-yellow))))
   ;; `(ack-match ((t (:foreground ,zenburn-orange :background ,zenburn-bg-1 :weight bold))))
;;;;; git-gutter
   `(git-gutter:added ((t (:foreground ,emerald :weight bold))))
   `(git-gutter:deleted ((t (:foreground ,alizarin :weight bold))))
   `(git-gutter:modified ((t (:foreground ,carrot :weight bold))))
   `(git-gutter:unchanged ((t (:foreground ,midnight-blue :weight bold))))
;;;;; git-gutter-fr
   `(git-gutter-fr:added ((t (:foreground ,emerald  :weight bold))))
   `(git-gutter-fr:deleted ((t (:foreground ,alizarin :weight bold))))
   `(git-gutter-fr:modified ((t (:foreground ,carrot :weight bold))))
;;;;; git-rebase-mode
   `(git-rebase-hash ((t (:inherit magit-hash))))
;;;;; git-timemachine
   `(git-timemachine-minibuffer-detail-face ((t (:weight bold))))
;;;;; guide-key
   `(guide-key/highlight-command-face ((t (:foreground ,peter-river))))
   `(guide-key/key-face ((t (:foreground ,orange))))
   `(guide-key/prefix-command-face ((t (:foreground ,wisteria))))
;;;;; haskell-mode
   `(haskell-undefined
     ((t (:foreground ,clouds :weight bold :background ,alizarin))))
   `(haskell-pragma-face
     ((t (:foreground ,asbestos :weight bold))))
;;;;; helm
   `(helm-action ((t (:underline nil))))
   `(helm-selection ((t (:background ,sun-flower :underline nil :weight bold))))
   `(helm-candidate-number ((t (:foreground ,turquoise))))
   `(helm-source-header ((t (:foreground ,midnight-blue :weight bold))))
   `(helm-visible-mark ((t (:foreground ,alizarin))))
   `(helm-ff-directory ((t (:foreground ,peter-river))))
   `(helm-ff-executable ((t (:foreground ,pumpkin))))
   `(helm-ff-symlink ((t (:foreground ,clouds :background ,amethyst))))
   `(helm-ff-prefix ((t (:foreground ,alizarin))))
   `(helm-M-x-key ((t (:foreground ,asbestos))))
   `(helm-grep-file ((t (:foreground ,turquoise))))
   `(helm-grep-lineno ((t (:foreground ,asbestos))))
   `(helm-grep-running ((t (:foreground ,alizarin))))
   `(helm-grep-finish ((t (:foreground ,turquoise))))
   `(helm-buffer-saved-out ((t (:foreground ,orange :background nil))))
   `(helm-moccur-buffer ((t (:foreground ,asbestos))))
   `(helm-buffer-directory ((t (:inherit default :weight bold))))
;;;;; highlight-symbol
   `(highlight-defined-function-name-face
     ((t (:weight normal :underline (:color ,concrete)))))

;;;;; highlight-symbolp
   `(highlight-symbol-face ((t (:background "gray88" :underline t))))

;;;;; hl-line-mode
   `(hl-line-face ((,class (:background ,silver))
                   (t :weight bold)))
   `(hl-line ((,class (:background ,silver)) ; old emacsen
              (t :weight bold)))
;;;;; hl-sexp
   `(hl-sexp-face ((,class (:background ,silver))
                   (t :weight bold)))
;;;;; hs-minor-mode (hideshow)
   `(hs-face
     ((t (:background ,silver :box (:line-width -1 :color ,midnight-blue)))))
;;;;; hydra
   `(hydra-face-red ((t (:foreground ,alizarin :weight bold))))
;;;;; ido-mode
   `(ido-first-match ((t (:foreground ,pumpkin :weight bold))))
   `(ido-only-match ((t (:foreground ,carrot :weight bold))))
   `(ido-subdir ((t (:foreground ,orange))))
   `(ido-indicator ((t (:foreground ,sun-flower :background ,pumpkin))))
;;;;; indent-guide
   `(indent-guide-face ((t (:foreground ,concrete))))
;;;;; js2-mode
   `(js2-warning ((t (:inherit flycheck-warning))))
   `(js2-error ((t (:inherit flycheck-error))))
   `(js2-jsdoc-tag ((t (:foreground ,amethyst))))
   `(js2-jsdoc-type ((t (:foreground ,wisteria))))
   `(js2-jsdoc-value ((t (:foreground ,peter-river))))
   `(js2-function-param ((t (:foreground, wet-asphalt))))
   `(js2-external-variable ((t (:foreground ,pomegranate :weight bold))))
;;;;; latex-mode
   `(font-latex-sectioning-1-face ((,class (:inherit nil))))
   `(font-latex-sectioning-2-face ((,class (:inherit nil))))
   `(font-latex-sectioning-3-face ((,class (:inherit nil))))
   `(font-latex-sectioning-4-face ((,class (:inherit nil))))
   `(font-latex-sectioning-5-face ((,class (:inherit nil))))
   `(font-latex-sectioning-5-face ((,class (:inherit nil))))
   `(font-latex-bold-face ((,class (:inherit default :bold t))))
   `(font-latex-verbatim-face ((,class (:family nil :foreground "SaddleBrown"))))
;;;;; linum-mode
   `(linum ((t (:foreground ,asbestos :background ,silver :weight normal
                            :underline nil))))
;;;;; magit
   `(magit-section-heading ((t (:foreground ,belize-hole :weight bold))))
   `(magit-diff-context-highlight
     ((t (:foreground ,wet-asphalt :background ,silver))))
   `(magit-diff-hunk-heading-highlight
     ((t (:foreground ,midnight-blue :background ,concrete))))
   `(magit-section-highlight ((t (:background ,silver))))
   `(magit-diff-lines-heading ((t (:background ,sun-flower))))
   `(magit-hash ((t (:foreground ,pumpkin :weight bold))))
   `(magit-log-author ((t (:foreground ,belize-hole))))
   `(magit-popup-heading ((t (:foreground ,orange))))
   `(magit-tag ((t (:foreground ,wisteria :weight bold))))
   `(magit-blame-heading ((t (:bold nil :foreground ,midnight-blue :background ,silver
                                    :box (:color ,concrete :line-width -1)))))
   `(magit-branch-current ((t :box -1)))
;;;;; org
   `(org-level-1
     ((t (:overline ,green-sea :background ,turquoise :foreground ,midnight-blue
                    :weight bold :height 1.3))))
   `(org-level-2
     ((t (:overline ,belize-hole :background ,peter-river :foreground ,clouds
                    :weight bold :height 1.2))))
   `(org-level-3
     ((t (:overline ,wisteria :background ,amethyst :foreground ,clouds
                    :weight bold :height 1.1))))
   `(org-level-4
     ((t (:overline ,orange :background ,sun-flower :foreground ,midnight-blue
                    :weight bold :height 1.0))))
   `(org-level-5 ((t (:inherit outline-5))))
   `(org-level-6 ((t (:inherit outline-6))))
   `(org-block-begin-line ((t (:background ,silver :underline ,concrete))))
   `(org-block-end-line ((t (:background ,silver :overline ,concrete))))
   `(org-todo ((t (:foreground ,alizarin :weight bold
                               :box (:color ,alizarin :line-width -1)))))
   `(org-done ((t (:foreground ,nephritis :weight bold
                               :box (:color ,nephritis :line-width -1)))))
;;;;; outline
   `(outline-1 ((t (:foreground ,green-sea))))
   `(outline-2 ((t (:foreground ,belize-hole))))
   `(outline-3 ((t (:foreground ,wisteria))))
   `(outline-4 ((t (:foreground ,orange))))
   `(outline-5 ((t (:foreground ,pumpkin))))
   `(outline-6 ((t (:foreground ,pomegranate))))
;;;;; proof-general
   `(proof-locked-face ((t (:background ,silver))))
;;;;; rainbow-delimiters
   `(rainbow-delimiters-depth-1-face ((t (:foreground ,wet-asphalt))))
   `(rainbow-delimiters-depth-2-face ((t (:foreground ,turquoise))))
   `(rainbow-delimiters-depth-3-face ((t (:foreground ,emerald))))
   `(rainbow-delimiters-depth-4-face ((t (:foreground ,peter-river))))
   `(rainbow-delimiters-depth-5-face ((t (:foreground ,amethyst))))
   `(rainbow-delimiters-depth-6-face ((t (:foreground ,sun-flower))))
   `(rainbow-delimiters-depth-7-face ((t (:foreground ,carrot))))
   `(rainbow-delimiters-depth-8-face ((t (:foreground ,alizarin))))
   `(rainbow-delimiters-depth-9-face ((t (:foreground ,green-sea))))
   `(rainbow-delimiters-depth-10-face ((t (:foreground ,nephritis))))
   `(rainbow-delimiters-depth-11-face ((t (:foreground ,belize-hole))))
   `(rainbow-delimiters-depth-12-face ((t (:foreground ,wisteria))))
;;;;; rust-mode
   `(rust-unsafe-face ((t (:foreground ,alizarin :weight bold))))
;;;;; show-paren
   `(show-paren-mismatch
     ((t (:foreground ,pomegranate :background ,sun-flower :weight bold))))
   `(show-paren-match ((t (:foreground ,clouds :background ,alizarin :weight bold))))
;;;;; mode-line/sml-mode-line
   `(mode-line
     ((,class (:foreground ,clouds :background ,midnight-blue :box nil))
      (t :inverse-video t)))
   `(mode-line-inactive
     ((t (:foreground ,wet-asphalt :background ,silver :box nil))))
   `(mode-line-buffer-id ((t (:foreground ,alizarin :weight bold))))
   `(sml/global ((t (:foreground ,clouds))))
   `(sml/modes ((t (:foreground ,nephritis))))
   `(sml/filename ((t (:foreground ,nephritis))))
   `(sml/folder ((t (:foreground ,carrot))))
   `(sml/prefix ((t (:foreground ,carrot))))
   `(sml/read-only ((t (:foreground ,wisteria))))
   `(sml/modified ((t (:foreground ,pomegranate :weight bold))))
   `(sml/outside-modified ((t (:foreground ,pomegranate :weight bold))))
   `(sml/line-number ((t (:foreground ,turquoise :weight bold))))
   `(sml/col-number ((t (:foreground ,turquoise :weight bold))))
   `(sml/vc ((t (:foreground ,peter-river :weight bold))))
   `(sml/vc-edited ((t (:foreground ,pumpkin :weight bold))))
   `(sml/git ((t (:foreground ,peter-river :weight bold))))
;;;;; powerline
   `(powerline-active1 ((t (:background ,wet-asphalt))))
   `(powerline-active2 ((t (:background ,silver :foreground ,midnight-blue))))
   `(powerline-inactive1 ((t (:background ,wet-asphalt :foreground ,clouds))))
   `(powerline-inactive2 ((t (:background ,midnight-blue :foreground ,silver))))
;;;;; SLIME
   `(slime-repl-output-face ((t (:foreground ,midnight-blue))))
   `(slime-repl-inputed-output-face ((t (:foreground ,wet-asphalt))))
   `(slime-error-face
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,alizarin)))
      (t
       (:underline ,alizarin))))
   `(slime-warning-face
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,orange)))
      (t
       (:underline ,orange))))
   `(slime-style-warning-face
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,sun-flower)))
      (t
       (:underline ,sun-flower))))
   `(slime-note-face
     ((((supports :underline (:style wave)))
       (:underline (:style wave :color ,wisteria)))
      (t
       (:underline ,wisteria))))
   `(slime-highlight-face ((t (:inherit turquoise))))
;;;;; structured-haskell-mode
   `(shm-current-face ((t (:background ,silver))))
   `(shm-quarantine-face ((t (:background "#eee"))))
;;;;; term
   `(term-color-black
     ((t (:foreground ,midnight-blue :background ,midnight-blue))))
   `(term-color-red
     ((t (:foreground ,pomegranate :background ,pomegranate))))
   `(term-color-green
     ((t (:foreground ,nephritis :background ,nephritis))))
   `(term-color-yellow
     ((t (:foreground ,orange :background ,orange))))
   `(term-color-blue
     ((t (:foreground ,belize-hole :background ,belize-hole))))
   `(term-color-magenta
     ((t (:foreground ,wisteria :background ,wisteria))))
   `(term-color-cyan
     ((t (:foreground ,green-sea :background ,green-sea))))
   `(term-color-white
     ((t (:foreground ,clouds :background ,clouds))))
   '(term-default-fg-color
     ((t (:inherit term-color-white))))
   '(term-default-bg-color
     ((t (:inherit term-color-black))))
;;;;; vimish-fold
   `(vimish-fold-overlay
     ((t (:background ,silver :foreground ,wet-asphalt
                      :box (:color ,concrete :line-width -1)))))
;;;;; web-mode
   `(web-mode-builtin-face ((t (:inherit ,font-lock-builtin-face))))
   `(web-mode-comment-face ((t (:inherit ,font-lock-comment-face))))
   `(web-mode-constant-face ((t (:inherit ,font-lock-constant-face))))
   `(web-mode-css-at-rule-face ((t (:foreground ,pumpkin ))))
   `(web-mode-css-prop-face ((t (:foreground ,pumpkin))))
   `(web-mode-css-pseudo-class-face ((t (:foreground ,orange :weight bold))))
   `(web-mode-css-rule-face ((t (:foreground ,belize-hole))))
   `(web-mode-doctype-face ((t (:inherit ,font-lock-comment-face))))
   `(web-mode-folded-face ((t (:underline t))))
   `(web-mode-function-name-face ((t (:foreground ,midnight-blue :weight bold))))
   `(web-mode-html-attr-name-face ((t (:foreground ,wisteria))))
   `(web-mode-html-attr-value-face ((t (:inherit ,font-lock-string-face))))
   `(web-mode-html-tag-face ((t (:foreground ,turquoise :weight bold))))
   `(web-mode-keyword-face ((t (:inherit ,font-lock-keyword-face))))
   `(web-mode-preprocessor-face ((t (:inherit ,font-lock-preprocessor-face))))
   `(web-mode-string-face ((t (:inherit ,font-lock-string-face))))
   `(web-mode-type-face ((t (:inherit ,font-lock-type-face))))
   `(web-mode-variable-name-face ((t (:inherit ,font-lock-variable-name-face))))
   `(web-mode-server-background-face ((t (:background ,clouds))))
   `(web-mode-server-comment-face ((t (:inherit web-mode-comment-face))))
   `(web-mode-server-string-face ((t (:inherit web-mode-string-face))))
   `(web-mode-symbol-face ((t (:inherit font-lock-constant-face))))
   `(web-mode-warning-face ((t (:inherit font-lock-warning-face))))
   `(web-mode-whitespaces-face ((t (:background ,alizarin))))
;;;;; whitespace-mode
   `(whitespace-space ((t (:background ,clouds :foreground ,sun-flower))))
   `(whitespace-hspace ((t (:background ,clouds :foreground ,sun-flower))))
   `(whitespace-tab ((t (:foreground ,concrete))))
   `(whitespace-newline ((t (:foreground ,sun-flower))))
   `(whitespace-trailing ((t (:background ,alizarin))))
   `(whitespace-line ((t (:underline (:color ,alizarin) :foreground nil))))
   `(whitespace-space-before-tab ((t (:background ,clouds :foreground ,alizarin))))
   `(whitespace-indentation ((t (:background ,clouds :foreground ,sun-flower))))
   `(whitespace-empty ((t (:background ,orange))))
   `(whitespace-space-after-tab ((t (:background ,clouds :foreground ,alizarin))))
;;;;; which-func-mode
   `(which-func ((t (:foreground ,silver))))
;;;;; yascroll
   `(yascroll:thumb-text-area ((t (:background ,silver))))
   `(yascroll:thumb-fringe ((t (:background ,silver :foreground ,sun-flower))))
   ))

;;; Theme Variables
(flatui/with-color-variables
  (custom-theme-set-variables
   'flatui
;;;;; ansi-color
   `(ansi-color-names-vector [,clouds ,alizarin ,emerald ,sun-flower
                              ,peter-river ,amethyst ,turquoise ,midnight-blue])
;;;;; fill-column-indicator
   `(fci-rule-color ,silver)
;;;;; highlight-parentheses
   `(hl-paren-colors '(,clouds ,clouds ,clouds))
   `(hl-paren-background-colors '(,peter-river ,amethyst ,sun-flower))
;;;;; sml-mode-line
   `(sml/active-foreground-color ,clouds)
   `(sml/active-background-color ,wet-asphalt)
   `(sml/inactive-foreground-color ,wet-asphalt)
   `(sml/inactive-background-color ,silver)
;;;;; vc-annotate
   `(vc-annotate-color-map
     '(( 30. . ,alizarin)
       ( 60. . ,pomegranate)
       ( 90. . ,carrot)
       (120. . ,pumpkin)
       (150. . ,sun-flower)
       (180. . ,orange)
       (210. . ,emerald)
       (240. . ,nephritis)
       (270. . ,turquoise)
       (300. . ,green-sea)
       (330. . ,peter-river)
       (360. . ,belize-hole)))
   `(vc-annotate-very-old-color ,belize-hole)
   `(vc-annotate-background ,clouds)
   ))


;;; Footer

;;;###autoload
(and load-file-name
     (boundp 'custom-theme-load-path)
     (add-to-list 'custom-theme-load-path
                  (file-name-as-directory
                   (file-name-directory load-file-name))))

(provide-theme 'flatui)

;; Local Variables:
;; no-byte-compile: t
;; indent-tabs-mode: nil
;; End:
;;; flatui-theme.el ends here