boo-bee-macs/elpa/doom-themes-20210322.1750/doom-one-light-theme.el
2021-04-13 14:21:29 +05:00

201 lines
7.2 KiB
EmacsLisp

;;; doom-one-light-theme.el --- inspired by Atom One Light -*- no-byte-compile: t; -*-
(require 'doom-themes)
;;
(defgroup doom-one-light-theme nil
"Options for doom-themes"
:group 'doom-themes)
(defcustom doom-one-light-brighter-modeline nil
"If non-nil, more vivid colors will be used to style the mode-line."
:group 'doom-one-light-theme
:type 'boolean)
(defcustom doom-one-light-brighter-comments nil
"If non-nil, comments will be highlighted in more vivid colors."
:group 'doom-one-light-theme
:type 'boolean)
(defcustom doom-one-light-comment-bg doom-one-light-brighter-comments
"If non-nil, comments will have a subtle, darker background. Enhancing their
legibility."
:group 'doom-one-light-theme
:type 'boolean)
(defcustom doom-one-light-padded-modeline doom-themes-padded-modeline
"If non-nil, adds a 4px padding to the mode-line. Can be an integer to
determine the exact padding."
:group 'doom-one-light-theme
:type '(choice integer boolean))
;;
(def-doom-theme doom-one-light
"A light theme inspired by Atom One"
;; name default 256 16
((bg '("#fafafa" nil nil ))
(bg-alt '("#f0f0f0" nil nil ))
(base0 '("#f0f0f0" "#f0f0f0" "white" ))
(base1 '("#e7e7e7" "#e7e7e7" "brightblack" ))
(base2 '("#dfdfdf" "#dfdfdf" "brightblack" ))
(base3 '("#c6c7c7" "#c6c7c7" "brightblack" ))
(base4 '("#9ca0a4" "#9ca0a4" "brightblack" ))
(base5 '("#383a42" "#424242" "brightblack" ))
(base6 '("#202328" "#2e2e2e" "brightblack" ))
(base7 '("#1c1f24" "#1e1e1e" "brightblack" ))
(base8 '("#1b2229" "black" "black" ))
(fg '("#383a42" "#424242" "black" ))
(fg-alt '("#c6c7c7" "#c7c7c7" "brightblack" ))
(grey base4)
(red '("#e45649" "#e45649" "red" ))
(orange '("#da8548" "#dd8844" "brightred" ))
(green '("#50a14f" "#50a14f" "green" ))
(teal '("#4db5bd" "#44b9b1" "brightgreen" ))
(yellow '("#986801" "#986801" "yellow" ))
(blue '("#4078f2" "#4078f2" "brightblue" ))
(dark-blue '("#a0bcf8" "#a0bcf8" "blue" ))
(magenta '("#a626a4" "#a626a4" "magenta" ))
(violet '("#b751b6" "#b751b6" "brightmagenta"))
(cyan '("#0184bc" "#0184bc" "brightcyan" ))
(dark-cyan '("#005478" "#005478" "cyan" ))
;; face categories -- required for all themes
(highlight blue)
(vertical-bar (doom-darken base2 0.1))
(selection dark-blue)
(builtin magenta)
(comments (if doom-one-light-brighter-comments cyan base4))
(doc-comments (doom-darken comments 0.15))
(constants violet)
(functions magenta)
(keywords red)
(methods cyan)
(operators blue)
(type yellow)
(strings green)
(variables (doom-darken magenta 0.36))
(numbers orange)
(region `(,(doom-darken (car bg-alt) 0.1) ,@(doom-darken (cdr base0) 0.3)))
(error red)
(warning yellow)
(success green)
(vc-modified orange)
(vc-added green)
(vc-deleted red)
;; custom categories
(-modeline-bright doom-one-light-brighter-modeline)
(-modeline-pad
(when doom-one-light-padded-modeline
(if (integerp doom-one-light-padded-modeline) doom-one-light-padded-modeline 4)))
(modeline-fg nil)
(modeline-fg-alt (doom-blend violet base4 (if -modeline-bright 0.5 0.2)))
(modeline-bg
(if -modeline-bright
(doom-darken base2 0.05)
base1))
(modeline-bg-l
(if -modeline-bright
(doom-darken base2 0.1)
base2))
(modeline-bg-inactive (doom-darken bg 0.1))
(modeline-bg-inactive-l `(,(doom-darken (car bg-alt) 0.05) ,@(cdr base1))))
;; --- extra faces ------------------------
((centaur-tabs-unselected :background bg-alt :foreground base4)
(font-lock-comment-face
:foreground comments
:background (if doom-one-light-comment-bg base0))
(font-lock-doc-face
:inherit 'font-lock-comment-face
:foreground doc-comments
:slant 'italic)
((line-number &override) :foreground (doom-lighten base4 0.15))
((line-number-current-line &override) :foreground base8)
(doom-modeline-bar :background (if -modeline-bright modeline-bg highlight))
(mode-line
:background modeline-bg :foreground modeline-fg
:box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg)))
(mode-line-inactive
:background modeline-bg-inactive :foreground modeline-fg-alt
:box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-inactive)))
(mode-line-emphasis
:foreground (if -modeline-bright base8 highlight))
(solaire-mode-line-face
:inherit 'mode-line
:background modeline-bg-l
:box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-l)))
(solaire-mode-line-inactive-face
:inherit 'mode-line-inactive
:background modeline-bg-inactive-l
:box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-inactive-l)))
;; magit
(magit-blame-heading :foreground orange :background bg-alt)
(magit-diff-removed :foreground (doom-darken red 0.2) :background (doom-blend red bg 0.1))
(magit-diff-removed-highlight :foreground red :background (doom-blend red bg 0.2) :bold bold)
;; --- major-mode faces -------------------
;; css-mode / scss-mode
(css-proprietary-property :foreground orange)
(css-property :foreground green)
(css-selector :foreground blue)
;; markdown-mode
(markdown-markup-face :foreground base5)
(markdown-header-face :inherit 'bold :foreground red)
((markdown-code-face &override) :background base1)
(mmm-default-submode-face :background base1)
;; org-mode
((outline-1 &override) :foreground red)
((outline-2 &override) :foreground orange)
((org-block &override) :background base1)
((org-block-begin-line &override) :foreground fg :slant 'italic)
(org-ellipsis :underline nil :background bg :foreground red)
((org-quote &override) :background base1)
;; helm
(helm-candidate-number :background blue :foreground bg)
;; selectrum
(selectrum-current-candidate :background base1)
;; web-mode
(web-mode-current-element-highlight-face :background dark-blue :foreground bg)
;; wgrep
(wgrep-face :background base1)
;; ediff
(ediff-current-diff-A :foreground red :background (doom-lighten red 0.8))
(ediff-current-diff-B :foreground green :background (doom-lighten green 0.8))
(ediff-current-diff-C :foreground blue :background (doom-lighten blue 0.8))
(ediff-current-diff-Ancestor :foreground teal :background (doom-lighten teal 0.8))
;; tooltip
(tooltip :background base1 :foreground fg)
;; posframe
(ivy-posframe :background base0)
;; lsp
(lsp-ui-doc-background :background base0)
(lsp-face-highlight-read :background (doom-blend red bg 0.3))
(lsp-face-highlight-textual :inherit 'lsp-face-highlight-read)
(lsp-face-highlight-write :inherit 'lsp-face-highlight-read)
)
;; --- extra variables ---------------------
()
)
;;; doom-one-light-theme.el ends here