From 04a4f50daf64f3159b9f8f15c0a106073d738a54 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Sun, 5 May 2024 23:24:38 +0530 Subject: (Emacs/elisp)+customised faces for tab-bar-mode --- .../.config/emacs/elisp/personal-primary-theme.el | 93 ++++++++++++---------- 1 file changed, 52 insertions(+), 41 deletions(-) (limited to 'Emacs/.config/emacs/elisp/personal-primary-theme.el') diff --git a/Emacs/.config/emacs/elisp/personal-primary-theme.el b/Emacs/.config/emacs/elisp/personal-primary-theme.el index 747b483..8f65078 100644 --- a/Emacs/.config/emacs/elisp/personal-primary-theme.el +++ b/Emacs/.config/emacs/elisp/personal-primary-theme.el @@ -3,26 +3,30 @@ (custom-theme-set-faces 'personal-primary - '(line-number ((t (:foreground "gray45" :background "gray1" :inherit (default))))) - '(line-number-current-line ((t (:foreground "white" :background "gray1" :inherit (default))))) + '(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")))) '(child-frame-border ((t (:background "white")))) - '(cursor ((((background light)) (:background "black")) (((background dark)) (: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)))) + '(cursor ((t (:background "white")))) + '(dired-ignored ((t (:background "gray10")))) + '(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")))) - '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif")))) - '(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown")))) - '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown")))) - '(minibuffer-prompt ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "medium blue")))) - '(highlight ((t (:background "gray14")))) - '(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")))) - '(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)))) - '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")))) ;;(t (:inverse-video t)))) '(font-lock-builtin-face ((t (:foreground "powder blue")))) '(font-lock-comment-delimiter-face ((t (:slant italic :foreground "gray24")))) '(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))))) - '(font-lock-function-name-face ((t (:weight semi-bold)))) + '(font-lock-function-name-face ((t (:weight semi-bold :foreground "#b6b6b6")))) + '(font-lock-function-call-face ((t (:weight semi-bold :foreground "#b6b6b6")))) '(font-lock-keyword-face ((t (:foreground "spring green" :weight bold :height 0.95 :family "Fira Code")))) '(font-lock-negation-char-face ((t nil))) '(font-lock-preprocessor-face ((t (:family "Source Code Pro" :foreground "#868686")))) @@ -32,44 +36,51 @@ '(font-lock-type-face ((t (:weight light :foreground "deepskyblue" :family "DejaVu Sans Mono")))) '(font-lock-variable-name-face ((nil (:family "Source Code Pro" :foreground "white")))) '(font-lock-warning-face ((t (:inherit (error))))) - '(button ((t (:inherit (link))))) - '(link ((t (:underline (:color foreground-color :style line) :foreground "cyan1")))) - '(link-visited ((t (:foreground "violet" :inherit (link))))) '(fringe ((t (:background "grey4")))) + '(haskell-interactive-face-prompt ((t (:foreground "green")))) '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line))))) - '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) + '(highlight ((t (:background "gray14")))) + '(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))))) + '(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")))) '(mode-line-buffer-id ((t (:weight bold)))) '(mode-line-emphasis ((t (:weight bold)))) - '(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))) (t (:inherit (highlight))))) - '(mode-line-inactive ((t (:weight light :foreground "CadetBlue" :background "grey7" :inherit (mode-line))))) - '(isearch ((t (:foreground "brown4" :background "white")))) - '(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))))) - '(match ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((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")))) + '(mode-line-inactive ((t (:weight light :foreground "CadetBlue" :background "grey7" + :inherit (mode-line))))) '(next-error ((t (:inherit (region))))) - '(query-replace ((t (:inherit (isearch))))) - '(company-tooltip ((t (:background "black" :foreground "white")))) - '(company-tooltip-selection ((t (:background "gray31" :slant italic)))) - '(company-tooltip-annotation ((t (:foreground "grey" :slant italic)))) - '(company-preview ((((background light)) (:inherit (company-tooltip-selection company-tooltip))) (((background dark)) (:foreground "wheat" :background "blue4")))) - '(company-preview-common ((t (:inherit company-preview :foreground "grey")))) - '(org-block ((t (:background "gray3" :inherit shadow)))) - '(org-quote ((t (:slant italic)))) - '(eshell-prompt ((t (:foreground "turquoise3" :weight bold)))) - '(eshell-ls-directory ((t (:foreground "DeepSkyBlue3" :weight bold)))) - '(whitespace-tab ((t (:background "gray5" :foreground "gray20")))) - '(whitespace-space ((t (:background "gray2" :foreground "darkgray")))) - '(whitespace-line ((t (:background "black" :foreground "violet")))) - '(haskell-interactive-face-prompt ((t (:foreground "green")))) - '(org-verbatim ((t (:foreground "red3")))) - '(org-code ((t (:foreground "green3")))) - '(ivy-current-match ((t (:weight bold :underline t :slant italic)))) '(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 "gray3" :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")))) - '(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 "gray5" :stipple nil :inherit nil))))) + '(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")))) + '(secondary-selection + ((t (:extend t :background "SkyBlue4")))) + '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) + '(trailing-whitespace ((((class color) (background light)) (:background "red1")) + (((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")))) + '(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))))) (provide-theme 'personal-primary) -- cgit v1.2.3-13-gbd6f From 14f29b83197b72ad0d99b646bb18f0c2f01f6709 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 6 May 2024 02:36:27 +0530 Subject: (Emacs/elisp)+italic and underline to dired-ignore face in primary-theme --- Emacs/.config/emacs/elisp/personal-primary-theme.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Emacs/.config/emacs/elisp/personal-primary-theme.el') diff --git a/Emacs/.config/emacs/elisp/personal-primary-theme.el b/Emacs/.config/emacs/elisp/personal-primary-theme.el index 8f65078..6411f08 100644 --- a/Emacs/.config/emacs/elisp/personal-primary-theme.el +++ b/Emacs/.config/emacs/elisp/personal-primary-theme.el @@ -15,7 +15,7 @@ '(company-tooltip-annotation ((t (:foreground "grey" :slant italic)))) '(company-tooltip-selection ((t (:background "gray31" :slant italic)))) '(cursor ((t (:background "white")))) - '(dired-ignored ((t (:background "gray10")))) + '(dired-ignored ((t (:background "gray10" :slant italic :underline t)))) '(escape-glyph ((t (:foreground "cyan")))) '(eshell-ls-directory ((t (:foreground "DeepSkyBlue3" :weight bold)))) '(eshell-prompt ((t (:foreground "turquoise3" :weight bold)))) -- cgit v1.2.3-13-gbd6f From ef5ac4371aff99a11e6dfaf016d201707918ff43 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 13 May 2024 17:03:27 +0530 Subject: (Emacs/elisp)~updated themes a bit --- .../.config/emacs/elisp/personal-primary-theme.el | 35 ++++++++++++---------- 1 file changed, 19 insertions(+), 16 deletions(-) (limited to 'Emacs/.config/emacs/elisp/personal-primary-theme.el') 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) -- cgit v1.2.3-13-gbd6f