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

174 lines
4.6 KiB
EmacsLisp

;;; doom-plain-dark-theme.el --- inspired by gko's plain theme for VSCode
(require 'doom-themes)
(defgroup doom-plain-dark-theme nil
"Options for doom-themes"
:group 'doom-themes)
(defcustom doom-plain-brighter-modeline nil
"If non-nil, more vivid colors will be used to style the mode-line."
:group 'doom-plain-dark-theme
:type 'boolean)
(defcustom doom-plain-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-plain-dark-theme
:type '(or integer boolean))
(def-doom-theme doom-plain-dark
"Theme inspired by gko's plain dark."
;; name default 256 16
((bg '("#222222" nil nil ))
(bg-alt (doom-lighten bg 0.15))
(base0 '("#838083" nil nil ))
(base1 '("#0e0c0a" nil nil ))
(base2 '("#bbbbbb" nil nil ))
(base3 '("#444444" nil nil ))
(base4 '("#202020" nil nil ))
(base5 '("#545053" nil nil ))
(base6 '("#050505" nil nil ))
(base7 '("#ffdddd" nil nil ))
(base8 '("#050505" nil nil ))
(fg '("#d7d5d1" nil nil ))
(fg-alt '("#e7e5e3" nil nil ))
(grey fg)
(red fg)
(blue fg)
(dark-blue fg)
(orange fg)
(green fg)
(teal fg)
(yellow fg)
(magenta fg)
(violet fg)
(cyan fg)
(dark-cyan fg)
;; face categories -- required for all themes
(highlight base2)
(vertical-bar (doom-lighten fg 0.3))
(selection base1)
(builtin base0)
(comments base5)
(doc-comments base5)
(constants base0)
(functions fg)
(keywords fg)
(methods fg)
(operators fg)
(type fg)
(strings base0)
(variables base0)
(numbers base0)
(region base1)
(error red)
(warning yellow)
(success green)
(vc-modified orange)
(vc-added green)
(vc-deleted red)
;; custom categories
(hidden `(,(car bg) "black" "black"))
(-modeline-bright doom-plain-brighter-modeline)
(-modeline-pad
(when doom-plain-padded-modeline
(if (integerp doom-plain-padded-modeline) doom-plain-padded-modeline 4)))
(modeline-fg nil)
(modeline-fg-alt base5)
(modeline-bg
(if -modeline-bright
(doom-darken blue 0.475)
`(,(doom-darken (car bg-alt) 0.15) ,@(cdr base0))))
(modeline-bg-l
(if -modeline-bright
(doom-darken blue 0.45)
`(,(doom-darken (car bg-alt) 0.1) ,@(cdr base0))))
(modeline-bg-inactive (doom-darken bg-alt 0.1))
(modeline-bg-inactive-l `(,(car bg-alt) ,@(cdr base1))))
;; --- extra faces ------------------------
(
((line-number &override) :foreground base3)
((line-number-current-line &override) :foreground base2)
(hl-line
:background base8)
(org-block-begin-line
:foreground base2
:background base3)
(org-block-end-line
:foreground base2
:background base3)
(org-level-1
:slant 'italic
:foreground fg-alt
:background nil)
(org-level-2
:slant 'italic
:foreground base2
:background nil)
(org-level-3
:slant 'italic
:foreground base2
:background nil)
(org-level-3
:slant 'italic
:foreground base2
:background nil)
;; Font lock
(font-lock-comment-face
:foreground comments
:slant 'italic)
(font-lock-type-face
:foreground type
:slant 'italic)
(font-lock-function-name-face
:foreground functions
:slant 'italic)
(font-lock-doc-face
:foreground doc-comments
:slant 'italic)
(font-lock-constant-face
:foreground constants
:slant 'italic)
(doom-modeline-bar :background (if -modeline-bright modeline-bg highlight))
;; LSP
(lsp-headerline-breadcrumb-symbols-face :foreground keywords :weight 'bold)
(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)))))
;;; doom-plain-dark-theme.el ends here