diff options
Diffstat (limited to 'Emacs/.config/emacs/elisp')
| -rw-r--r-- | Emacs/.config/emacs/elisp/personal-light-theme.el | 66 | ||||
| -rw-r--r-- | Emacs/.config/emacs/elisp/personal-solarized-theme.el | 129 |
2 files changed, 129 insertions, 66 deletions
diff --git a/Emacs/.config/emacs/elisp/personal-light-theme.el b/Emacs/.config/emacs/elisp/personal-light-theme.el deleted file mode 100644 index 3747f05..0000000 --- a/Emacs/.config/emacs/elisp/personal-light-theme.el +++ /dev/null @@ -1,66 +0,0 @@ -(deftheme personal-light - "Created 2023-03-27.") - -(custom-theme-set-faces - 'personal-light - '(button ((t (:inherit (link))))) - '(company-preview - ((t (:foreground "black" :background "deepskyblue")))) - '(company-preview-common ((t (:inherit company-preview)))) - '(company-tooltip ((t (:background "white" :foreground "black")))) - '(company-tooltip-annotation ((t (:foreground "grey70" :slant italic)))) - '(company-tooltip-selection ((t (:background "grey80" :slant italic)))) - '(cursor ((t (:background "grey50")))) - '(dired-ignored ((t (:background "grey80" :slant italic :underline t)))) - '(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown")))) - '(fixed-pitch ((t (:family "Monospace")))) - '(font-lock-builtin-face ((((class grayscale) (background light)) (:weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "dark slate blue")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Orchid")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold)))) - '(font-lock-comment-delimiter-face ((t (:inherit (font-lock-comment-face))))) - '(font-lock-comment-face ((t (:foreground "dim gray")))) - '(font-lock-constant-face ((((class grayscale) (background light)) (:underline (:color foreground-color :style line) :weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:underline (:color foreground-color :style line) :weight bold :foreground "Gray50")) (((class color) (min-colors 88) (background light)) (:foreground "dark cyan")) (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 8)) (:foreground "magenta")) (t (:underline (:color foreground-color :style line) :weight bold)))) - '(font-lock-doc-face ((t (:inherit (font-lock-string-face))))) - '(font-lock-doc-markup-face ((t (:inherit (font-lock-constant-face))))) - '(font-lock-function-name-face ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold :inverse-video t)))) - '(font-lock-keyword-face ((((class grayscale) (background light)) (:weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "Purple")) (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1")) (((class color) (min-colors 16) (background light)) (:foreground "Purple")) (((class color) (min-colors 16) (background dark)) (:foreground "Cyan")) (((class color) (min-colors 8)) (:weight bold :foreground "cyan")) (t (:weight bold)))) - '(font-lock-negation-char-face ((t nil))) - '(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face))))) - '(font-lock-regexp-grouping-backslash ((t (:inherit (bold))))) - '(font-lock-regexp-grouping-construct ((t (:inherit (bold))))) - '(font-lock-string-face ((((class grayscale) (background light)) (:slant italic :foreground "DimGray")) (((class grayscale) (background dark)) (:slant italic :foreground "LightGray")) (((class color) (min-colors 88) (background light)) (:foreground "VioletRed4")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8)) (:foreground "green")) (t (:slant italic)))) - '(font-lock-type-face ((((class grayscale) (background light)) (:weight bold :foreground "Gray90")) (((class grayscale) (background dark)) (:weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "ForestGreen")) (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 16) (background light)) (:foreground "ForestGreen")) (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green")) (t (:underline (:color foreground-color :style line) :weight bold)))) - '(font-lock-variable-name-face ((((class grayscale) (background light)) (:slant italic :weight bold :foreground "Gray90")) (((class grayscale) (background dark)) (:slant italic :weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "sienna")) (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 8)) (:weight light :foreground "yellow")) (t (:slant italic :weight bold)))) - '(font-lock-warning-face ((t (:inherit (error))))) - '(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray")))) - '(header-line ((t (:box nil :foreground "grey20" :background "grey90" :inherit (mode-line))))) - '(highlight ((t (:background "grey90")))) - '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown")))) - '(isearch ((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3")) (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2")) (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4")) (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4")) (t (:inverse-video t)))) - '(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t)))) - '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:background "paleturquoise4")) (((class color) (min-colors 16)) (:background "turquoise3")) (((class color) (min-colors 8)) (:background "turquoise3")) (t (:underline (:color foreground-color :style line))))) - '(link ((t (:underline (:color foreground-color :style line) :foreground "RoyalBlue3")))) - '(link-visited ((t (:foreground "magenta4" :inherit (link))))) - '(match ((((class color) (min-colors 88) (background light)) (:background "khaki1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray")))) - '(minibuffer-prompt ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "medium blue")))) - '(mode-line ((t (:box nil :background "LightSkyBlue" :foreground "black")))) - '(mode-line-buffer-id ((t (:weight bold)))) - '(mode-line-emphasis ((t (:weight bold)))) - '(mode-line-highlight ((t (:box (:line-width (2 . 2) :color "grey40" :style released-button))))) - '(mode-line-inactive ((t (:foreground "grey20" :background "grey90" :inherit (mode-line))))) - '(next-error ((t (:inherit (region))))) - '(org-block ((t (:background "white" :inherit shadow)))) - '(query-replace ((t (:inherit (isearch))))) - '(region ((t (:extend t :background "green yellow" :distant-foreground "gtk_selection_fg_color")))) - '(secondary-selection ((((class color) (min-colors 88) (background light)) (:extend t :background "yellow1")) (((class color) (min-colors 88) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:extend t :background "yellow")) (((class color) (min-colors 16) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 8)) (:extend t :foreground "black" :background "cyan")) (t (:inverse-video t)))) - '(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) (((class color) (min-colors 8) (background light)) (:foreground "green")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow")))) - '(tab-bar ((t (:background "white")))) - '(tab-bar-tab ((t (:foreground "gray30" :background "white")))) - '(tab-bar-tab-inactive ((t (:foreground "gray13" :background "gray80")))) - '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) - '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t)))) - '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif")))) - '(whitespace-line ((t (:background "white" :foreground "violet")))) - '(whitespace-space ((t (:background "white" :foreground "lightgray")))) - '(default ((t (:family "Source Code Pro" :foundry "ADBO" :width normal :height 143 :weight normal :slant normal :underline nil :overline nil :extend nil :strike-through nil :box nil :inverse-video nil :foreground "black" :background "white" :stipple nil :inherit nil)))) - ) - -(provide-theme 'personal-light) diff --git a/Emacs/.config/emacs/elisp/personal-solarized-theme.el b/Emacs/.config/emacs/elisp/personal-solarized-theme.el new file mode 100644 index 0000000..9893757 --- /dev/null +++ b/Emacs/.config/emacs/elisp/personal-solarized-theme.el @@ -0,0 +1,129 @@ +(deftheme personal-solarized + "Created 2024-07-02.") + +(defvar personal-solarized-name-colour "#3c98e0" + "Colour of names in this theme.") + +(custom-theme-set-faces + 'personal-solarized + '(button ((t (:inherit (link))))) + '(child-frame-border ((t (:background "white")))) + '(company-preview ((t (:foreground "wheat" :background "blue4")))) + '(company-preview-common ((t (:inherit company-preview :foreground "grey")))) + '(company-tooltip ((t (:background "black" :foreground "white")))) + '(company-tooltip-annotation ((t (:foreground "grey" :slant italic)))) + '(company-tooltip-selection ((t (:background "grey31" :slant italic)))) + '(cursor ((t (:background "white")))) + '(dired-ignored ((t (:background "grey10" :slant italic :underline t)))) + '(escape-glyph ((t (:foreground "cyan")))) + '(eshell-ls-directory ((t (:foreground "DeepSkyBlue3" :weight bold)))) + '(eshell-prompt ((t (:foreground "turquoise3" :weight bold)))) + '(fill-column-indicator ((t (:inherit shadow :foreground "gray23" :background "gray23" :weight thin)))) + '(fixed-pitch ((t (:family "Monospace")))) + '(font-latex-bold-face ((t (:inherit bold :foreground "#9eacac")))) + '(font-latex-doctex-documentation-face ((t (:background unspecified)))) + '(font-latex-doctex-preprocessor-face ((t (:inherit (font-latex-doctex-documentation-face font-lock-builtin-face font-lock-preprocessor-face))))) + '(font-latex-italic-face ((t (:inherit italic :foreground "#9eacac")))) + '(font-latex-math-face ((t (:foreground "#7a7ed2")))) + '(font-latex-sectioning-0-face ((t (:inherit font-latex-sectioning-1-face :height 1.1)))) + '(font-latex-sectioning-1-face ((t (:inherit font-latex-sectioning-2-face :height 1.1)))) + '(font-latex-sectioning-2-face ((t (:inherit font-latex-sectioning-3-face :height 1.1)))) + '(font-latex-sectioning-3-face ((t (:inherit font-latex-sectioning-4-face :height 1.1)))) + '(font-latex-sectioning-4-face ((t (:inherit font-latex-sectioning-5-face :height 1.1)))) + '(font-latex-sectioning-5-face ((t (:inherit default :foreground "#c49619" :weight bold)))) + '(font-latex-sedate-face ((t (:foreground "#9eacac")))) + '(font-latex-slide-title-face ((t (:inherit (default font-lock-type-face) :weight bold :height 1.2)))) + '(font-latex-string-face ((t (:foreground "#3cafa5")))) + '(font-latex-subscript-face ((t (:height 0.8)))) + '(font-latex-superscript-face ((t (:height 0.8)))) + '(font-latex-verbatim-face ((t (:inherit fixed-pitch :foreground "#8d9fa1" :slant italic)))) + '(font-latex-warning-face ((t (:inherit bold :foreground "#db5823")))) + '(font-lock-builtin-face ((t (:foreground "#8d9fa1" :weight bold :slant normal)))) + '(font-lock-comment-delimiter-face ((t (:foreground "#62787f" :slant normal)))) + '(font-lock-comment-face ((t (:foreground "#62787f")))) + '(font-lock-doc-face ((t (:foreground "#3cafa5" :slant normal)))) + '(font-lock-keyword-face ((t (:foreground "#93a61a" :weight bold)))) + '(font-lock-negation-char-face ((t (:foreground "#c49619" :weight bold)))) + '(font-lock-regexp-grouping-backslash ((t (:foreground "#93a61a" :weight bold)))) + '(font-lock-regexp-grouping-construct ((t (:foreground "#c49619" :weight bold)))) + '(font-lock-string-face ((t (:foreground "#3cafa5")))) + '(font-lock-type-face ((t (:foreground "#c49619")))) + '(font-lock-warning-face ((t (:inherit error :weight bold)))) + '(fringe ((t (:inherit (default))))) + '(haskell-interactive-face-prompt ((t (:foreground "green")))) + '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line))))) + '(highlight ((t (:extend t :background "#222233")))) + '(homoglyph ((t (:foreground "cyan")))) + '(isearch ((t (:foreground "brown4" :background "white")))) + '(isearch-fail ((t (:background "red4")))) + '(ivy-current-match ((t (:weight bold :underline t :slant italic)))) + '(lazy-highlight ((t (:background "paleturquoise4")))) + '(line-number ((t (:foreground "grey45" :background "grey1" :inherit (default))))) + '(line-number-current-line ((t (:foreground "white" :background "grey1" :inherit (default))))) + '(link ((t (:underline (:color foreground-color :style line) :foreground "cyan1")))) + '(link-visited ((t (:foreground "violet" :inherit (link))))) + '(match ((t (:background "RoyalBlue3")))) + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line ((t (:box nil :foreground "LightSkyBlue" :background "black" :inherit (default))))) + '(mode-line-buffer-id ((t (:weight bold)))) + '(mode-line-emphasis ((t (:weight bold)))) + '(mode-line-inactive ((t (:box nil :weight light :foreground "CadetBlue" :background "grey7" :inherit (default))))) + '(next-error ((t (:inherit (region))))) + '(orderless-match-face-0 ((t (:weight bold :foreground "lime green")))) + '(orderless-match-face-1 ((t (:weight bold :foreground "light green")))) + '(orderless-match-face-2 ((t (:weight bold :foreground "forest green")))) + '(orderless-match-face-3 ((t (:weight bold :foreground "dark green")))) + '(org-block ((t (:background "grey3" :inherit shadow)))) + '(org-code ((t (:foreground "green3")))) + '(org-quote ((t (:slant italic)))) + '(org-verbatim ((t (:foreground "red3")))) + '(outline-1 ((t (:inherit default :foreground "#db5823")))) + '(outline-2 ((t (:inherit default :foreground "#93a61a")))) + '(outline-3 ((t (:inherit default :foreground "#3c98e0")))) + '(outline-4 ((t (:inherit default :foreground "#c49619")))) + '(outline-5 ((t (:inherit default :foreground "#3cafa5")))) + '(outline-6 ((t (:inherit default :foreground "#93a61a")))) + '(outline-7 ((t (:inherit default :foreground "#ec423a")))) + '(outline-8 ((t (:inherit default :foreground "#3c98e0")))) + '(outline-minor-0 ((t (:extend t :weight bold :background "#01323d")))) + '(outline-minor-1 ((t (:extend t :inherit (outline-minor-0 outline-1) :background "#1e9d310d32a3")))) + '(pdf-isearch-batch ((t (:foreground "black" :background "white")))) + '(pretty-mode-symbol-face ((t (:foreground "#c49619" :weight normal)))) + '(query-replace ((t (:inherit (isearch))))) + '(rainbow-delimiters-base-error-face ((t (:extend t :foreground "white" :background "red1")))) + '(rainbow-delimiters-depth-1-face ((t (:extend t :foreground "red")))) + '(rainbow-delimiters-depth-2-face ((t (:extend t :foreground "darkorange")))) + '(rainbow-delimiters-depth-3-face ((t (:extend t :foreground "yellow")))) + '(rainbow-delimiters-depth-4-face ((t (:extend t :foreground "green")))) + '(rainbow-delimiters-depth-5-face ((t (:extend t :foreground "DeepSkyBlue")))) + '(rainbow-delimiters-depth-6-face ((t (:extend t :foreground "purple")))) + '(rainbow-delimiters-depth-7-face ((t (:extend t :foreground "violet")))) + '(rainbow-delimiters-mismatched-face ((t (:extend t :foreground "white" :background "red4")))) + '(rainbow-delimiters-unmatched-face ((t (:extend t :foreground "white" :background "red3")))) + '(region ((t (:extend t :background "grey25")))) + '(secondary-selection ((t (:extend t :background "SkyBlue4")))) + '(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) + (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) + (((class color) (min-colors 8) (background light)) (:foreground "green")) + (((class color) (min-colors 8) (background dark)) (:foreground "yellow")))) + '(show-paren-match ((t (:foreground unspecified :background "#55ec55" :weight bold)))) + '(show-paren-mismatch ((t (:foreground "#01323d" :background "#ec1111" :weight bold)))) + '(tab-bar ((t (:background "grey13")))) + '(tab-bar-tab ((t (:background "grey20" :foreground "white" :box (:color ))))) + '(tab-bar-tab-inactive ((t (:background "grey13" :foreground "DimGrey")))) + '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) + '(trailing-whitespace ((t (:background "red1")))) + '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif")))) + '(whitespace-line ((t (:background "black" :foreground "violet")))) + '(whitespace-space ((t (:background "#0a0a0a" :foreground "black")))) + '(whitespace-tab ((t (:background "grey5" :foreground "grey20")))) + `(font-lock-constant-face ((t (:foreground ,personal-solarized-name-colour :weight bold)))) + `(font-lock-function-name-face ((t (:box nil :foreground ,personal-solarized-name-colour)))) + `(font-lock-preprocessor-face ((t (:foreground ,personal-solarized-name-colour)))) + `(font-lock-variable-name-face ((t (:foreground ,personal-solarized-name-colour)))) + '(default ((t (:family "Hack" :foundry "ADBO" :width normal + :weight normal :slant normal :underline nil :overline nil + :extend nil :strike-through nil :box nil :inverse-video nil + :foreground "#b6b6b6" :background "black" :stipple nil :inherit nil))))) + +(provide-theme 'personal-solarized) |