(Emacs/elisp)+custom solarized based theme

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)