Files
dotfiles/config/emacs/themes/ef-monokai-pro-theme.el
steveandgitadmin 02a5e0df28 init: new dotfile configuration
Remove all org files using a new script to more config over, The old org
file configuaration were great but required org. This new version only
requires the scripts that is included in the repo.

The configuration are all done but have not ported the theming system
yet.

Signed-off-by: Steve Beaulac <steve@sagacity.ca>
Change-Id: I14cd7fe058a71c8ba9d6d35397dc8d7e6a6a6964
2026-03-02 13:26:21 -05:00

324 lines
9.0 KiB
EmacsLisp

;; Steve Beaulac implementation of monokai-pro theme using ef-themes
(eval-and-compile
(require 'ef-themes)
(deftheme ef-monokai-pro
"ef-themes of the monokai-pro palette"
:background-mode 'dark
:kind 'color-scheme
:family 'ef)
(defconst ef-monokai-pro-palette
'(
;;; Basic values
(bg-main "#2d2a2e")
(fg-main "#fcfcfa")
(bg-dim "#353236")
(fg-dim "#c1c0c0")
(bg-alt "#403e41")
(fg-alt "#8d7391")
(bg-active "#5b595c")
(bg-inactive "#242124")
;;; Basic hues for foreground values
(red "#ff6188")
(red-warmer "#ff697a")
(red-cooler "#dd61aa")
(red-faint "#ff99b3")
(green "#a9dc76")
(green-warmer "#bbb876")
(green-cooler "#9abf93")
(green-faint "#c7e8a6")
(yellow "#ffd866")
(yellow-warmer "#ffaf66")
(yellow-cooler "#d3b792")
(yellow-faint "#ffe69d")
(blue "#78dce8")
(blue-warmer "#a0b9c0")
(blue-cooler "#78c0e8")
(blue-faint "#a8e9f0")
(magenta "#ff9df2")
(magenta-warmer "#ff9dd4")
(magenta-cooler "#e39df6")
(magenta-faint "#ffc1f7")
(cyan "#fc9867")
(cyan-warmer "#fd8957")
(cyan-cooler "#ff929d")
(cyan-faint "#ffc7aa")
;;; Basic hues for background values
(bg-red-intense "#f27185")
(bg-red-subtle "#d47479")
(bg-green-intense "#a5cf4f")
(bg-green-subtle "#b7d9b1")
(bg-yellow-intense "#ffd879")
(bg-yellow-subtle "#ffbf66")
(bg-blue-intense "#83d2e1")
(bg-blue-subtle "#81c0bb")
(bg-magenta-intense "#ff7afc")
(bg-magenta-subtle "#fb9eff")
(bg-cyan-intense "#f29dcd")
(bg-cyan-subtle "#c06537")
;;; Diffs
(bg-added "#00381f")
(bg-added-faint "#002910")
(bg-added-refine "#034f2f")
(fg-added "#a0e0a0")
(bg-changed "#363300")
(bg-changed-faint "#2a1f00")
(bg-changed-refine "#4a4a00")
(fg-changed "#efef80")
(bg-removed "#4f1119")
(bg-removed-faint "#380a0f")
(bg-removed-refine "#781a1f")
(fg-removed "#ffbfbf")
;;; Graphs
(bg-graph-red-0 "#b52c2c")
(bg-graph-red-1 "#702020")
(bg-graph-green-0 "#0fed00")
(bg-graph-green-1 "#007800")
(bg-graph-yellow-0 "#f1e00a")
(bg-graph-yellow-1 "#b08940")
(bg-graph-blue-0 "#2fafef")
(bg-graph-blue-1 "#1f2f8f")
(bg-graph-magenta-0 "#bf94fe")
(bg-graph-magenta-1 "#5f509f")
(bg-graph-cyan-0 "#a4877a")
(bg-graph-cyan-1 "#611300")
;;; Special hues
(bg-mode-line "#8d7391")
(fg-mode-line "#fcfcfa")
(bg-completion "#5b595c")
(bg-hover "#939293")
(bg-hover-secondary "#5b595c")
(bg-hl-line "#403341")
(bg-region "#403e41")
(bg-paren "#1f2f3f")
(bg-err "#360d09") ; check with err
(bg-warning "#332600") ; check with warning
(bg-info "#002c12") ; check with info
(border "#4f4f5f")
(cursor "#ff76ff")
(fg-intense "#ffffff")
(modeline-err "#ff80af")
(modeline-warning "#dfcf33")
(modeline-info "#2fc82f")
(underline-err "#df2f2f")
(underline-warning "#c0b000")
(underline-info "#22b022")
(bg-char-0 "#0050af")
(bg-char-1 "#7f1f7f")
(bg-char-2 "#625a00")
;;; Conditional hues
(bg-region-intense "#434443")
(fg-region unspecified)
;;; Mappings
;;;; General mappings
(bg-fringe bg-main)
(fg-fringe fg-main)
(err red-warmer)
(warning yellow)
(info green)
(link cyan)
(link-alt magenta)
(name blue-warmer)
(keybind blue-cooler)
(identifier magenta-faint)
(prompt green-cooler)
;;;; Code mappings
(builtin magenta)
(comment yellow-cooler)
(constant magenta-warmer)
(fnname yellow-cooler)
(keyword red-warmer)
(preprocessor magenta-cooler)
(docstring cyan-faint)
(string yellow)
(type blue-cooler)
(variable green)
(rx-escape green-warmer) ; compare with `string'
(rx-construct red)
;;;; Accent mappings
(accent-0 blue)
(accent-1 magenta-warmer)
(accent-2 green-cooler)
(accent-3 red)
;;;; Date mappings
(date-common green-cooler)
(date-deadline red-warmer)
(date-event fg-alt)
(date-holiday magenta)
(date-now fg-main)
(date-range fg-alt)
(date-scheduled yellow)
(date-weekday cyan)
(date-weekend red-faint)
;;;; Prose mappings
(prose-code magenta-warmer)
(prose-done green)
(prose-macro green-cooler)
(prose-metadata fg-dim)
(prose-metadata-value fg-alt)
(prose-table fg-alt)
(prose-table-formula err)
(prose-tag yellow-faint)
(prose-todo red-warmer)
(prose-verbatim blue)
;;;; Mail mappings
(mail-cite-0 blue)
(mail-cite-1 magenta-warmer)
(mail-cite-2 green-cooler)
(mail-cite-3 yellow-cooler)
(mail-part magenta-faint)
(mail-recipient blue-warmer)
(mail-subject blue-cooler)
(mail-other cyan)
;;;; Search mappings
(bg-search-match bg-warning)
(bg-search-current bg-yellow-intense)
(bg-search-lazy bg-blue-intense)
(bg-search-replace bg-red-intense)
(bg-search-rx-group-0 bg-magenta-intense)
(bg-search-rx-group-1 bg-green-intense)
(bg-search-rx-group-2 bg-red-subtle)
(bg-search-rx-group-3 bg-cyan-subtle)
;;;; Space mappings
(bg-space unspecified)
(fg-space border)
(bg-space-err bg-yellow-intense)
;;;; Tab mappings
(bg-tab-bar bg-alt)
(bg-tab-current bg-main)
(bg-tab-other bg-active)
;;;; Terminal mappings
(bg-term-black "black")
(fg-term-black "black")
(bg-term-black-bright "gray35")
(fg-term-black-bright "gray35")
(bg-term-red red-cooler)
(fg-term-red red-cooler)
(bg-term-red-bright red-warmer)
(fg-term-red-bright red-warmer)
(bg-term-green green)
(fg-term-green green)
(bg-term-green-bright green-warmer)
(fg-term-green-bright green-warmer)
(bg-term-yellow yellow)
(fg-term-yellow yellow)
(bg-term-yellow-bright yellow-warmer)
(fg-term-yellow-bright yellow-warmer)
(bg-term-blue blue-warmer)
(fg-term-blue blue-warmer)
(bg-term-blue-bright blue-cooler)
(fg-term-blue-bright blue-cooler)
(bg-term-magenta magenta)
(fg-term-magenta magenta)
(bg-term-magenta-bright magenta-cooler)
(fg-term-magenta-bright magenta-cooler)
(bg-term-cyan cyan)
(fg-term-cyan cyan)
(bg-term-cyan-bright cyan-cooler)
(fg-term-cyan-bright cyan-cooler)
(bg-term-white "gray65")
(fg-term-white "gray65")
(bg-term-white-bright "white")
(fg-term-white-bright "white")
;;;; Rainbow mappings
(rainbow-0 green-cooler)
(rainbow-1 blue)
(rainbow-2 magenta-warmer)
(rainbow-3 cyan-cooler)
(rainbow-4 yellow-cooler)
(rainbow-5 magenta-cooler)
(rainbow-6 red-cooler)
(rainbow-7 green-warmer)
(rainbow-8 yellow))
"The `ef-monokai-pro' palette.
Color values have the form (COLOR-NAME HEX-VALUE) with the former
as a symbol and the latter as a string.
Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
with both as symbols. The latter is a color that already exists
in the palette and is associated with a HEX-VALUE.")
(defcustom ef-monokai-pro-palette-overrides nil
"Overrides for `ef-monokai-pro-palette'.
Mirror the elements of the aforementioned palette, overriding
their value.
For overrides that are shared across all of the Ef themes,
refer to `ef-themes-common-palette-overrides'.
To preview the palette entries, use `ef-themes-preview-colors' or
`ef-themes-preview-colors-current' (read the documentation for
further details)."
:group 'ef-themes
:package-version '(ef-themes . "1.0.0")
:type '(repeat (list symbol (choice symbol string)))
:link '(info-link "(ef-themes) Palette overrides"))
(ef-themes-theme ef-monokai-pro ef-monokai-pro-palette ef-monokai-pro-palette-overrides)
(provide-theme 'ef-monokai-pro))