emacs.d/elpa/flucui-themes-20200204.1930/flucui-light-theme.el
2020-02-05 19:59:48 +01:00

294 lines
14 KiB
EmacsLisp

;;; 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