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

195 lines
7.0 KiB
EmacsLisp

;; doom-molokai-theme.el --- inspired by Textmate's Monokai -*- no-byte-compile: t; -*-
(require 'doom-themes)
;;
(defgroup doom-molokai-theme nil
"Options for doom-molokai."
:group 'doom-themes)
(defcustom doom-molokai-brighter-modeline nil
"If non-nil, more vivid colors will be used to style the mode-line."
:group 'doom-molokai-theme
:type 'boolean)
(defcustom doom-molokai-brighter-comments nil
"If non-nil, comments will be highlighted in more vivid colors."
:group 'doom-molokai-theme
:type 'boolean)
(defcustom doom-molokai-comment-bg doom-molokai-brighter-comments
"If non-nil, comments will have a subtle, darker background. Enhancing their
legibility."
:group 'doom-molokai-theme
:type 'boolean)
(defcustom doom-molokai-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-molokai-theme
:type '(choice integer boolean))
;;
(def-doom-theme doom-molokai
"A dark, vibrant theme inspired by Textmate's Monokai."
;; name gui 256 16
((bg '("#1c1e1f" nil nil ))
(bg-alt '("#222323" nil nil ))
(base0 '("#1B2229" "black" "black" ))
(base1 '("#151617" "#101010" "brightblack"))
(base2 '("#1d1f20" "#191919" "brightblack"))
(base3 '("#2d2e2e" "#252525" "brightblack"))
(base4 '("#4e4e4e" "#454545" "brightblack"))
(base5 '("#555556" "#6b6b6b" "brightblack"))
(base6 '("#767679" "#7b7b7b" "brightblack"))
(base7 '("#cfc0c5" "#c1c1c1" "brightblack"))
(base8 '("#ffffff" "#ffffff" "brightwhite"))
(fg '("#d6d6d4" "#dfdfdf" "brightwhite"))
(fg-alt '("#556172" "#4d4d4d" "white"))
(grey '("#525254" "#515154" "brightblack"))
(red '("#e74c3c" "#e74c3c" "red"))
(orange '("#fd971f" "#fd971f" "brightred"))
(green '("#b6e63e" "#b6e63e" "green"))
(teal green)
(yellow '("#e2c770" "#e2c770" "yellow"))
(blue '("#268bd2" "#2686D6" "brightblue"))
(dark-blue '("#727280" "#727280" "blue"))
(magenta '("#fb2874" "#fb2874" "magenta"))
(violet '("#9c91e4" "#9c91e4" "brightmagenta"))
(cyan '("#66d9ef" "#66d9ef" "brightcyan"))
(dark-cyan '("#8fa1b3" "#8FA1B3" "cyan"))
;; face categories
(highlight orange)
(vertical-bar (doom-lighten bg 0.1))
(selection base5)
(builtin orange)
(comments (if doom-molokai-brighter-comments violet base5))
(doc-comments (if doom-molokai-brighter-comments (doom-lighten violet 0.1) (doom-lighten base5 0.25)))
(constants orange)
(functions green)
(keywords magenta)
(methods cyan)
(operators violet)
(type cyan)
(strings yellow)
(variables orange)
(numbers violet)
(region base4)
(error red)
(warning yellow)
(success green)
(vc-modified base4)
(vc-added (doom-darken green 0.15))
(vc-deleted red)
;; custom categories
(hidden `(,(car bg) "black" "black"))
(-modeline-bright doom-molokai-brighter-modeline) ;; no effect for the moment
(-modeline-pad
(when doom-molokai-padded-modeline
(if (integerp doom-molokai-padded-modeline) doom-molokai-padded-modeline 4)))
(modeline-fg nil)
(modeline-fg-alt base4)
(modeline-bg
(if -modeline-bright base3 base3))
(modeline-bg-inactive
(if -modeline-bright (doom-darken base2 0.2) (doom-darken base2 0.2)))
(org-quote `(,(doom-lighten (car bg) 0.05) "#1f1f1f")))
;; --- extra faces ------------------------
((lazy-highlight :background violet :foreground base0 :distant-foreground base0 :bold bold)
(cursor :background magenta)
(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)))
;; Centaur tabs
(centaur-tabs-active-bar-face :background green)
(centaur-tabs-modified-marker-selected :inherit 'centaur-tabs-selected :foreground green)
(centaur-tabs-modified-marker-unselected :inherit 'centaur-tabs-unselected :foreground green)
;; Doom modeline
(doom-modeline-bar :background green)
(doom-modeline-buffer-file :inherit 'mode-line-buffer-id :weight 'bold)
(doom-modeline-buffer-path :inherit 'bold :foreground green)
(doom-modeline-buffer-project-root :foreground green :weight 'bold)
(doom-modeline-buffer-modified :inherit 'bold :foreground orange)
((line-number &override) :foreground base5 :distant-foreground nil)
((line-number-current-line &override) :foreground base7 :distant-foreground nil)
(isearch :foreground base0 :background green)
;; ediff
(ediff-fine-diff-A :background (doom-blend magenta bg 0.3) :weight 'bold)
;; evil-mode
(evil-search-highlight-persist-highlight-face :background violet)
;; evil-snipe
(evil-snipe-first-match-face :foreground base0 :background green)
(evil-snipe-matches-face :foreground green :underline t)
;; flycheck
(flycheck-error :underline `(:style wave :color ,red) :background base3)
(flycheck-warning :underline `(:style wave :color ,yellow) :background base3)
(flycheck-info :underline `(:style wave :color ,green) :background base3)
;; helm
(helm-swoop-target-line-face :foreground magenta :inverse-video t)
;; ivy
(ivy-current-match :background base3)
(ivy-minibuffer-match-face-1 :background base1 :foreground base4)
;; neotree
(neo-dir-link-face :foreground cyan)
(neo-expand-btn-face :foreground magenta)
;; rainbow-delimiters
(rainbow-delimiters-depth-1-face :foreground magenta)
(rainbow-delimiters-depth-2-face :foreground orange)
(rainbow-delimiters-depth-3-face :foreground green)
(rainbow-delimiters-depth-4-face :foreground cyan)
(rainbow-delimiters-depth-5-face :foreground magenta)
(rainbow-delimiters-depth-6-face :foreground orange)
(rainbow-delimiters-depth-7-face :foreground green)
;; --- major-mode faces -------------------
;; css-mode / scss-mode
(css-proprietary-property :foreground keywords)
;; markdown-mode
(markdown-blockquote-face :inherit 'italic :foreground dark-blue)
(markdown-list-face :foreground magenta)
(markdown-pre-face :foreground cyan)
(markdown-link-face :inherit 'bold :foreground blue)
((markdown-code-face &override) :background (doom-lighten base2 0.045))
;; org-mode
((outline-1 &override) :foreground magenta)
((outline-2 &override) :foreground orange)
(org-ellipsis :foreground orange)
(org-tag :foreground yellow :bold nil)
((org-quote &override) :inherit 'italic :foreground base7 :background org-quote)
(org-todo :foreground yellow :bold 'inherit)
(org-list-dt :foreground yellow))
;; --- extra variables --------------------
;; ()
)
;;; doom-molokai-theme.el ends here