;;; flucui-light-theme.el --- Custom theme inspired by the FlatUI palette

;; Copyright (C) 2010--2018 MetroWind.

;; This program is free software. It comes without any warranty, to
;; the extent permitted by applicable law. You can redistribute it
;; and/or modify it under the terms of the Do What the Fuck You Want
;; to Public License, Version 2, as published by Sam Hocevar. See
;; http://www.wtfpl.net/ for more details.

;; Author: MetroWind <chris.corsair@gmail.com>
;; URL: https://github.com/MetroWind/flucui-theme
;; Keywords: lisp
;; Version: 1.0
;; Package-Requires: ((emacs "24"))

;;; Commentary:
;;
;; Fluc UI theme is a custom theme for Emacs, inspired by
;; http://flatuicolors.com. It Has both light and dark variants. This
;; file provides light variant.

;;; Code:

;; Note: for every face that is customized here, a customization for
;; it should be also provided in the dark version. Otherwise it could
;; be ugly when switching bwteen styles

(deftheme flucui-light
  "Inspired by the color scheme from flatuicolors.com.")

;; Colors
(let*
    ((fui-turquoise "#1abc9c")
     (fui-emerald "#2ecc71")
     (fui-river "#3498db")
     (fui-amethyst "#9b59b6")
     (fui-deep-asphalt "#34495e")
     (fui-asphalt "#425d78")
     (fui-sunflower "#f1c40f")
     (fui-carrot "#e67e22")
     (fui-alizarin "#e74c3c")
     (fui-clouds "#ecf0f1")
     (fui-concrete "#95a5a6")
     (fui-dark-turquoise "#16a085")
     (fui-dark-emerald "#27ae60")
     (fui-dark-river "#2980b9")
     (fui-dark-amethyst "#8e44ad")
     (fui-dark-asphalt "#2c3e50")
     (fui-dark-sunflower "#f39c12")
     (fui-dark-carrot "#d35400")
     (fui-dark-alizarin "#c0392b")
     (fui-dark-clouds "#bdc3c7")
     (fui-deep-clouds "#dce0e1")
     (fui-dark-concrete "#7f8c8d")

     (fui-bg fui-clouds)
     (fui-fg fui-asphalt))

  (custom-theme-set-faces
   'flucui-light
   `(default ((t (:background ,fui-bg
                  :foreground ,fui-fg))))
   `(cursor ((t (:background ,fui-carrot
                 :foreground ,fui-fg))))
   `(region ((t (:background ,fui-dark-sunflower
                 :foreground ,fui-fg))))
   `(mode-line ((t (:background ,fui-deep-clouds
                    :foreground ,fui-fg
                    :box nil))))
   `(mode-line-buffer-id ((t (:foreground ,fui-fg))))
   `(mode-line-inactive ((t (:background ,fui-dark-clouds
                             :foreground ,fui-fg))))
   `(fringe ((t (:background ,fui-bg))))
   `(minibuffer-prompt ((t (:slant italic :foreground ,fui-dark-concrete))))
   `(font-lock-builtin-face ((t (:foreground ,fui-dark-asphalt))))
   `(font-lock-comment-face ((t (:slant italic :foreground ,fui-concrete))))
   `(font-lock-constant-face ((t (:slant italic :foreground ,fui-dark-concrete))))
   `(font-lock-function-name-face ((t (:foreground ,fui-amethyst))))
   `(font-lock-keyword-face ((t (:foreground ,fui-dark-asphalt :slant italic))))
   `(font-lock-string-face ((t (:foreground ,fui-dark-turquoise))))
   `(font-lock-type-face ((t (:foreground ,fui-dark-emerald))))
   `(font-lock-variable-name-face ((t (:foreground ,fui-river))))
   `(font-lock-warning-face ((t (:foreground ,fui-dark-carrot))))
   `(isearch ((t (:background ,fui-dark-concrete
                  :foreground ,fui-fg))))
   `(lazy-highlight ((t (:background ,fui-concrete))))
   `(link ((t (:foreground ,fui-dark-river :underline t))))
   `(link-visited ((t (:foreground ,fui-dark-asphalt :underline t))))
   `(button ((t (:background ,fui-carrot :underline t :foreground nil))))
   `(header-line ((t (:background ,fui-deep-clouds
                      :foreground ,fui-fg))))
   `(shadow ((t (:foreground ,fui-concrete))))
   `(show-paren-match ((t (:background ,fui-emerald :foreground ,fui-clouds))))
   `(show-paren-mismatch ((t (:background ,fui-alizarin
                              :foreground ,fui-clouds))))
   `(highlight ((t (:inverse-video nil :background ,fui-deep-clouds))))
   `(hl-line ((t (:inverse-video nil :background ,fui-deep-clouds))))
   `(widget-field ((t (:background ,fui-concrete))))

   ;; Face for specific prog modes
   `(sh-heredoc ((t (:foreground nil :inherit font-lock-string-face))))

   ;; Dired
   `(dired-directory ((t (:foreground ,fui-river))))
   `(dired-symlink ((t (:foreground ,fui-dark-turquoise))))
   `(dired-perm-write ((t (:foreground ,fui-dark-carrot))))

   ;; Diff
   `(diff-added ((t (:foreground ,fui-river))))
   `(diff-removed ((t (:foreground ,fui-alizarin))))
   ;; `(diff-context ((t (:background nil))))
   `(diff-file-header ((t (:bold t :background ,fui-concrete :weight bold))))
   `(diff-header ((t (:background ,fui-deep-clouds :foreground ,fui-fg))))

   ;; Whitespace
   `(whitespace-trailing ((t (:background ,fui-dark-clouds))))
   `(whitespace-line ((t (:background ,fui-dark-clouds :foreground unspecified))))

   ;; ERC
   `(erc-notice-face ((t (:foreground ,fui-dark-river
                          :weight unspecified))))
   `(erc-header-line ((t (:foreground ,fui-bg :background ,fui-dark-clouds))))
   `(erc-timestamp-face ((t (:foreground ,fui-concrete
                             :weight unspecified))))
   `(erc-current-nick-face ((t (:foreground ,fui-dark-carrot
                                :weight unspecified))))
   `(erc-input-face ((t (:foreground ,fui-amethyst))))
   `(erc-prompt-face ((t (:foreground ,fui-dark-concrete
                          :background nil
                          :slant italic
                          :weight unspecified))))
   `(erc-my-nick-face ((t (:foreground ,fui-dark-carrot))))
   `(erc-pal-face ((t (:foreground ,fui-dark-amethyst))))

   ;; Rainbow delimiters
   `(rainbow-delimiters-depth-1-face ((t (:foreground ,fui-fg))))
   `(rainbow-delimiters-depth-2-face ((t (:foreground ,fui-turquoise))))
   `(rainbow-delimiters-depth-3-face ((t (:foreground ,fui-dark-river))))
   `(rainbow-delimiters-depth-4-face ((t (:foreground ,fui-dark-amethyst))))
   `(rainbow-delimiters-depth-5-face ((t (:foreground ,fui-dark-sunflower))))
   `(rainbow-delimiters-depth-6-face ((t (:foreground ,fui-dark-emerald))))
   `(rainbow-delimiters-depth-7-face ((t (:foreground ,fui-dark-concrete))))
   `(rainbow-delimiters-unmatched-face ((t (:foreground ,fui-alizarin))))

   ;; Magit
   `(magit-branch-local ((t (:foreground ,fui-river :background nil))))
   `(magit-branch-remote ((t (:foreground ,fui-dark-emerald :background nil))))
   `(magit-tag ((t (:foreground ,fui-river :background ,fui-bg))))
   `(magit-hash ((t (:foreground ,fui-concrete))))
   `(magit-section-title ((t (:foreground ,fui-dark-emerald :background ,fui-bg))))
   `(magit-section-heading ((t (:background ,fui-bg :foreground ,fui-fg))))
   `(magit-section-highlight ((t (:background ,fui-bg))))
   `(magit-item-highlight ((t (:foreground ,fui-fg :background ,fui-dark-clouds))))
   `(magit-log-author ((t (:foreground ,fui-amethyst))))
   `(magit-diff-added ((t (:inherit diff-added))))
   `(magit-diff-added-highlight ((t (:inherit magit-diff-added))))
   `(magit-diff-removed ((t (:inherit diff-removed))))
   `(magit-diff-removed-highlight ((t (:inherit magit-diff-removed))))
   `(magit-diff-context ((t (:inherit diff-context))))
   `(magit-diff-context-highlight ((t (:inherit magit-diff-context))))

   ;; Git-gutter-fringe
   `(git-gutter-fr:modified ((t (:foreground ,fui-amethyst))))
   `(git-gutter-fr:added ((t (:foreground ,fui-emerald))))
   `(git-gutter-fr:deleted ((t (:foreground ,fui-alizarin))))

   ;; Company
   `(company-preview ((t (:foreground ,fui-fg :background ,fui-sunflower))))
   `(company-preview-common ((t (:foreground ,fui-fg :background ,fui-carrot))))
   `(company-tooltip ((t (:foreground ,fui-fg :background ,fui-dark-clouds))))
   `(company-tooltip-common ((t (:foreground ,fui-dark-carrot))))
   `(company-tooltip-selection ((t (:background ,fui-deep-clouds))))
   `(company-tooltip-common-selection ((t (:foreground ,fui-dark-carrot))))
   `(company-tooltip-annotation ((t (:foreground ,fui-river))))
   `(company-scrollbar-bg ((t (:background ,fui-bg))))
   `(company-scrollbar-fg ((t (:background ,fui-dark-clouds))))

   ;; Cperl
   `(cperl-array-face ((t (:weight bold :inherit font-lock-variable-name-face))))
   `(cperl-hash-face ((t (:weight bold :slant italic :inherit font-lock-variable-name-face))))
   `(cperl-nonoverridable-face ((t (:inherit font-lock-builtin-face))))

   ;; Powerline
   `(mode-line ((t (:box nil))))
   `(powerline-active2 ((t (:foreground ,fui-fg :background ,fui-dark-clouds))))
   `(powerline-active1 ((t (:foreground ,fui-bg :background ,fui-emerald))))
   `(powerline-inactive2 ((t (:foreground ,fui-bg :background ,fui-concrete))))
   `(powerline-inactive1 ((t (:foreground ,fui-fg :background ,fui-dark-clouds))))

   ;; Smart mode line
   `(sml/global  ((t (:foreground ,fui-fg))))
   `(sml/charging ((t (:foreground ,fui-emerald))))
   `(sml/discharging ((t (:foreground ,fui-dark-alizarin))))
   `(sml/read-only ((t (:foreground ,fui-dark-emerald))))
   `(sml/filename ((t (:foreground ,fui-river :weight bold))))
   `(sml/prefix ((t (:foreground ,fui-dark-amethyst :weight normal :slant italic))))
   `(sml/modes ((t (:foreground ,fui-fg :weight bold))))
   `(sml/modified ((t (:foreground ,fui-alizarin))))
   `(sml/outside-modified ((t (:foreground ,fui-bg :background ,fui-alizarin))))
   `(sml/position-percentage ((t (:foreground ,fui-amethyst :slant normal))))

   ;; Helm
   `(helm-candidate-number ((t (:foreground ,fui-fg :background nil))))
   `(helm-source-header ((t (:foreground ,fui-bg :background ,fui-river
                                         :weight normal :slant italic))))
   `(helm-selection ((t (:background ,fui-dark-sunflower))))
   `(helm-prefarg ((t (:foreground ,fui-dark-alizarin))))
   `(helm-ff-directory ((t (:foreground ,fui-river))))
   `(helm-ff-executable ((t (:foreground ,fui-dark-emerald))))
   `(helm-ff-invalid-symlink ((t (:foreground ,fui-bg :background ,fui-dark-alizarin))))
   `(helm-ff-symlink ((t (:foreground ,fui-amethyst))))
   `(helm-ff-prefix ((t (:background ,fui-sunflower))))
   `(helm-ff-dotted-directory ((t (:background nil :foreground ,fui-dark-clouds))))
   `(helm-M-x-key ((t (:foreground ,fui-dark-emerald))))
   `(helm-buffer-file ((t (:foreground ,fui-fg))))
   `(helm-buffer-archive ((t (:inherit helm-buffer-file))))
   `(helm-buffer-directory ((t (:foreground ,fui-river :background nil))))
   `(helm-buffer-not-saved ((t (:foreground ,fui-dark-alizarin))))
   `(helm-buffer-modified ((t (:foreground ,fui-carrot))))
   `(helm-buffer-process ((t (:foreground ,fui-dark-emerald))))
   `(helm-buffer-size ((t (:foreground ,fui-concrete))))
   `(helm-ff-file ((t (:inherit default))))

   ;; TeX
   `(font-latex-sedate-face ((t (:foreground ,fui-river))))
   `(font-latex-math-face ((t (:foreground ,fui-dark-turquoise))))
   `(font-latex-script-char-face ((t (:inherit font-latex-math-face))))

   ;; adoc-mode
   `(markup-meta-hide-face ((t (:height 1.0 :foreground ,fui-fg))))
   `(markup-meta-face ((t (:height 1.0 :foreground ,fui-fg :family nil))))
   `(markup-reference-face ((t (:underline nil :foreground ,fui-dark-river))))
   `(markup-gen-face ((t (:foreground ,fui-dark-river))))
   `(markup-passthrough-face ((t (:inherit markup-gen-face))))
   `(markup-replacement-face ((t (:family nil :foreground ,fui-amethyst))))
   `(markup-list-face ((t (:weight bold))))
   `(markup-secondary-text-face ((t (:height 1.0 :foreground ,fui-dark-emerald))))
   `(markup-verbatim-face ((t (:foreground ,fui-dark-concrete))))
   `(markup-typewriter-face ((t (:inherit nil))))
   `(markup-title-0-face ((t (:height 1.2 :inherit markup-gen-face))))
   `(markup-title-1-face ((t (:height 1.0 :inherit markup-gen-face))))
   `(markup-title-2-face ((t (:height 1.0 :inherit markup-gen-face))))
   `(markup-title-3-face ((t (:height 1.0 :inherit markup-gen-face))))
   `(markup-title-4-face ((t (:height 1.0 :inherit markup-gen-face))))
   `(markup-title-5-face ((t (:height 1.0 :inherit markup-gen-face))))

   ;; Org-mode
   `(org-hide ((t (:foreground ,fui-bg))))
   `(org-table ((t (:foreground ,fui-fg))))
   `(org-date ((t (:foreground ,fui-emerald))))
   `(org-done ((t (:weight normal :foreground ,fui-dark-concrete))))
   `(org-todo ((t (:weight normal :foreground ,fui-carrot))))
   `(org-latex-and-related ((t (:foreground ,fui-concrete :italic t))))
   `(org-checkbox ((t (:weight normal :foreground ,fui-dark-concrete))))
   `(org-mode-line-clock ((t (:background nil))))
   `(org-document-title ((t (:weight normal :foreground nil))))

   ;; Message
   `(message-header-name ((t (:foreground ,fui-dark-concrete))))
   `(message-header-other ((t (:foreground ,fui-fg))))
   `(message-header-cc ((t (:inherit message-header-other))))
   `(message-header-newsgroups ((t (:inherit message-header-other))))
   `(message-header-xheader ((t (:inherit message-header-other))))
   `(message-header-subject ((t (:foreground ,fui-dark-emerald))))
   `(message-header-to ((t (:foreground ,fui-dark-river))))
   `(message-mml ((t (:foreground ,fui-concrete))))

   ;; Notmuch
   `(notmuch-search-unread-face ((t (:foreground ,fui-dark-river))))
   `(notmuch-tag-face ((t (:foreground ,fui-dark-emerald))))
   `(notmuch-tree-match-author-face ((t (:foreground ,fui-dark-river))))
   `(notmuch-tree-no-match-face ((t (:foreground ,fui-concrete))))
   `(notmuch-tree-match-tag-face ((t (:inherit notmuch-tree-match-author-face))))
   `(notmuch-tag-unread-face ((t (:foreground ,fui-carrot))))
   `(notmuch-message-summary-face ((t (:foreground ,fui-dark-concrete))))

   ;; Highlight-indent-guides
   `(highlight-indent-guides-odd-face ((t (:background ,fui-deep-clouds))))
   `(highlight-indent-guides-even-face ((t (:background nil))))

   ;; Telega
   `(telega-msg-heading ((t (:background nil :foreground ,fui-dark-emerald :inherit nil))))
   `(telega-msg-inline-reply ((t (:foreground ,fui-concrete :inherit nil))))
   `(telega-entity-type-texturl ((t (:inherit nil :foreground ,fui-dark-river))))
  ))

(provide-theme 'flucui-light)

;; Local Variables:
;; no-byte-compile: t
;; End:

;;; flucui-light-theme.el ends here