(Emacs/elisp)~updated themes a bit

2 files changed, 28 insertions, 18 deletions

diff --git a/Emacs/.config/emacs/elisp/personal-light-theme.el b/Emacs/.config/emacs/elisp/personal-light-theme.el
index 94a0a18..3747f05 100644
--- a/Emacs/.config/emacs/elisp/personal-light-theme.el
+++ b/Emacs/.config/emacs/elisp/personal-light-theme.el
@@ -4,7 +4,14 @@
 (custom-theme-set-faces
  'personal-light
  '(button ((t (:inherit (link)))))
- '(cursor ((((background light)) (:background "black")) (((background dark)) (:background "white"))))
+ '(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))))
@@ -25,7 +32,7 @@
  '(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 "gainsboro"))))
+ '(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))))
diff --git a/Emacs/.config/emacs/elisp/personal-primary-theme.el b/Emacs/.config/emacs/elisp/personal-primary-theme.el
index 6411f08..07ef4fa 100644
--- a/Emacs/.config/emacs/elisp/personal-primary-theme.el
+++ b/Emacs/.config/emacs/elisp/personal-primary-theme.el
@@ -4,24 +4,24 @@
 (custom-theme-set-faces
  'personal-primary
  '(button ((t (:inherit (link)))))
- '(tab-bar ((t (:background "gray13"))))
- '(tab-bar-tab ((t (:background "gray20" :foreground "white" :box (:color )))))
- '(tab-bar-tab-inactive ((t (:background "gray13" :foreground "DimGrey"))))
+ '(tab-bar ((t (:background "grey13"))))
+ '(tab-bar-tab ((t (:background "grey20" :foreground "white" :box (:color )))))
+ '(tab-bar-tab-inactive ((t (:background "grey13" :foreground "DimGrey"))))
  '(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 "gray31" :slant italic))))
+ '(company-tooltip-selection ((t (:background "grey31" :slant italic))))
  '(cursor ((t (:background "white"))))
- '(dired-ignored ((t (:background "gray10" :slant italic :underline t))))
+ '(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))))
  '(fixed-pitch ((t (:family "Monospace"))))
  '(font-lock-builtin-face ((t (:foreground "powder blue"))))
- '(font-lock-comment-delimiter-face ((t (:slant italic :foreground "gray24"))))
+ '(font-lock-comment-delimiter-face ((t (:slant italic :foreground "grey24"))))
  '(font-lock-comment-face ((t (:slant italic :foreground "#868686"))))
  '(font-lock-constant-face ((t (:foreground "indian red" :weight semi-bold :height 0.99 :family "Source Code Pro"))))
  '(font-lock-doc-face ((t (:inherit (font-lock-string-face)))))
@@ -39,14 +39,14 @@
  '(fringe ((t (:background "grey4"))))
  '(haskell-interactive-face-prompt ((t (:foreground "green"))))
  '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line)))))
- '(highlight ((t (:background "gray14"))))
+ '(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 "gray45" :background "gray1" :inherit (default)))))
- '(line-number-current-line ((t (:foreground "white" :background "gray1" :inherit (default)))))
+ '(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"))))
@@ -61,14 +61,17 @@
  '(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 "gray3" :inherit shadow))))
+ '(org-block ((t (:background "grey3" :inherit shadow))))
  '(org-code ((t (:foreground "green3"))))
  '(org-quote ((t (:slant italic))))
  '(org-verbatim ((t (:foreground "red3"))))
  '(pdf-isearch-batch ((t (:foreground "black" :background "white"))))
  '(query-replace ((t (:inherit (isearch)))))
- '(region ((t (:extend t :background "gray25"))))
- '(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"))))
+ '(region ((t (:extend t :background "grey25"))))
+ '(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"))))
  '(secondary-selection
    ((t (:extend t :background "SkyBlue4"))))
  '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch)))))
@@ -76,11 +79,11 @@
                         (((class color) (background dark)) (: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 "gray2" :foreground "darkgray"))))
- '(whitespace-tab ((t (:background "gray5" :foreground "gray20"))))
+ '(whitespace-space ((t (:background "grey6" :foreground "black"))))
+ '(whitespace-tab ((t (:background "grey5" :foreground "grey20"))))
  '(default ((t (:family "Source Code Pro" :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)))))
+                :extend nil :strike-through nil :box nil :inverse-video nil
+                :foreground "#b6b6b6" :background "black" :stipple nil :inherit nil)))))
 
 (provide-theme 'personal-primary)