[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Ambitious default theme rework.
themes/sd-light-theme.el
@@ -1,5 +1,5 @@
1
1
(deftheme sd-light
2
Removed:
"Created 2021-05-09.")
2
Added:
"Created 2021-05-15.")
3
3
4
4
(custom-theme-set-faces
5
5
'sd-light
@@ -15,21 +15,21 @@
15
15
'(fixed-pitch ((t (:family "Hack"))))
16
16
'(font-lock-builtin-face ((t (:foreground "medium purple"))))
17
17
'(font-lock-comment-delimiter-face ((t (:inherit fixed-pitch :foreground "slate gray"))))
18
Removed:
'(font-lock-comment-face ((t (:inherit fixed-pitch :foreground "light slate gray" :slant italic))))
18
Added:
'(font-lock-comment-face ((t (:inherit org-meta-line :background "white" :slant italic))))
19
19
'(font-lock-constant-face ((t (:foreground "MediumOrchid4"))))
20
Removed:
'(font-lock-doc-face ((t (:weight normal :inherit variable-pitch :foreground "black"))))
20
Added:
'(font-lock-doc-face ((t (:foreground "midnight blue" :slant italic))))
21
21
'(font-lock-function-name-face ((t (:foreground "medium violet red" :weight bold))))
22
Removed:
'(font-lock-keyword-face ((t (:foreground "violet"))))
22
Added:
'(font-lock-keyword-face ((t (:foreground "violet" :weight bold))))
23
23
'(font-lock-negation-char-face ((t nil)))
24
24
'(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face))))
25
Removed:
'(font-lock-regexp-grouping-backslash ((t (:inherit bold :foreground "dark orange"))))
26
Removed:
'(font-lock-regexp-grouping-construct ((t (:inherit bold))))
25
Added:
'(font-lock-regexp-grouping-backslash ((t (:foreground "dark orange" :weight bold))))
26
Added:
'(font-lock-regexp-grouping-construct ((t (:weight bold))))
27
27
'(font-lock-string-face ((t (:foreground "MediumOrchid3"))))
28
28
'(font-lock-type-face ((t (:foreground "orchid2"))))
29
29
'(font-lock-variable-name-face ((t (:foreground "DarkOrchid3" :weight bold))))
30
30
'(font-lock-warning-face ((t (:inherit (error)))))
31
31
'(fringe ((t (:background "gainsboro"))))
32
Removed:
'(header-line ((t (:weight extra-bold :height 1.8 :family "Public Sans"))))
32
Added:
'(header-line ((t (:inherit org-meta-line :weight extra-bold :height 1.8))))
33
33
'(highlight ((t (:background "LightSkyBlue1"))))
34
34
'(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
35
35
'(isearch ((t (:background "DodgerBlue1" :foreground "white"))))
@@ -42,14 +42,14 @@
42
42
'(lazy-highlight ((t (:foreground "DodgerBlue1" :box 2))))
43
43
'(match ((t (:background "yellow1"))))
44
44
'(minibuffer-prompt ((t (:inherit org-meta-line))))
45
Removed:
'(mode-line ((t (:height 1.2 :family "Hack" :background "steel blue" :foreground "white" :box (:line-width -1 :style released-button)))))
45
Added:
'(mode-line ((t (:inherit org-meta-line :box (:line-width -1 :style released-button)))))
46
46
'(mode-line-buffer-id ((t (:weight bold))))
47
47
'(mode-line-emphasis ((t (:weight bold))))
48
48
'(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
49
Removed:
'(mode-line-inactive ((t (:height 1.2 :family "Hack" :background "SteelBlue4" :foreground "gainsboro" :box (:line-width -1 :color "gainsboro")))))
49
Added:
'(mode-line-inactive ((t (:inherit org-meta-line :background "gainsboro" :box (:line-width -1 :color "dark gray")))))
50
50
'(next-error ((t (:inherit region))))
51
Removed:
'(org-block ((t (:foreground "light slate blue" :background "smoke" :inherit fixed-pitch))))
52
Removed:
'(org-checkbox ((t (:weight bold :inherit org-meta-line))))
51
Added:
'(org-block ((t (:inherit fixed-pitch :background "snow" :foreground "plum"))))
52
Added:
'(org-checkbox ((t (:inherit org-meta-line :weight bold))))
53
53
'(org-code ((t (:background "gainsboro" :foreground "black" :family "Hack"))))
54
54
'(org-date ((t (:inherit (link fixed-pitch)))))
55
55
'(org-document-info ((t (:weight bold))))
@@ -59,7 +59,7 @@
59
59
'(org-drawer ((t (:inherit org-meta-line))))
60
60
'(org-ellipsis ((t (:inherit shadow :background "white"))))
61
61
'(org-footnote ((t (:inherit (link variable-font)))))
62
Removed:
'(org-formula ((t (:inherit org-table))))
62
Added:
'(org-formula ((t (:slant italic :inherit org-table))))
63
63
'(org-level-1 ((t (:height 1.8))))
64
64
'(org-level-2 ((t (:height 1.6))))
65
65
'(org-level-3 ((t (:height 1.4))))
@@ -68,29 +68,34 @@
68
68
'(org-level-6 ((t (:inherit org-level-4))))
69
69
'(org-level-7 ((t (:inherit org-level-4))))
70
70
'(org-level-8 ((t (:inherit org-level-4))))
71
Removed:
'(org-meta-line ((t (:foreground "SteelBlue" :family "Hermit"))))
72
Removed:
'(org-priority ((t (:background "white" :inherit org-meta-line))))
71
Added:
'(org-meta-line ((t (:extend t :background "white smoke" :foreground "LightSteelBlue3" :family "Hermit"))))
72
Added:
'(org-priority ((t (:inherit org-special-keyword :height 1.6))))
73
73
'(org-quote ((t (:inherit variable-pitch :slant italic))))
74
74
'(org-special-keyword ((t (:background "white" :weight bold :inherit org-meta-line))))
75
Removed:
'(org-table ((t (:family "Hack"))))
75
Added:
'(org-table ((t (:height 0.8 :family "Hack"))))
76
76
'(org-tag ((t (:inherit (link fixed-pitch)))))
77
77
'(org-todo ((t (:background "tomato" :foreground "white" :weight bold :height 1.4 :family "Hermit"))))
78
Removed:
'(org-verbatim ((t (:background "white" :foreground "DodgerBlue1" :foundry "Hack"))))
78
Added:
'(org-verbatim ((t (:foundry "Hack" :foreground "DodgerBlue1" :background "white" :inherit org-code))))
79
79
'(query-replace ((t (:inherit (isearch)))))
80
80
'(region ((t (:background "gainsboro"))))
81
81
'(secondary-selection ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:background "yellow")) (((class color) (min-colors 16) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 8)) (:foreground "black" :background "cyan")) (t (:inverse-video t))))
82
82
'(shadow ((t (:foreground "light slate gray"))))
83
Removed:
'(swiper-match-face-1 ((t (:inherit lazy-highlight))))
84
Removed:
'(swiper-match-face-2 ((t (:inherit isearch))))
85
Removed:
'(swiper-match-face-3 ((t (:foreground "chocolate" :inherit isearch))))
86
Removed:
'(swiper-match-face-4 ((t (:foreground "yellow" :inherit isearch))))
83
Added:
'(swiper-match-face-1 ((t (:foreground "red"))))
84
Added:
'(swiper-match-face-2 ((t (:foreground "orange red"))))
85
Added:
'(swiper-match-face-3 ((t (:foreground "chocolate"))))
86
Added:
'(swiper-match-face-4 ((t (:foreground "yellow"))))
87
87
'(tooltip ((t (:background "gainsboro" :foreground "black" :family "Hermit"))))
88
88
'(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
89
Removed:
'(variable-pitch ((t (:family "Public Sans"))))
90
Removed:
'(line-number ((t (:background "white smoke" :foreground "LightSteelBlue3" :weight normal :height 0.8 :family "Hack"))))
89
Added:
'(variable-pitch ((t (:height 1.2 :family "Public Sans"))))
90
Added:
'(line-number ((t (:height 0.8 :inherit org-meta-line))))
91
91
'(show-paren-match ((t (:inherit highlight))))
92
92
'(show-paren-mismatch ((t (:background "red" :foreground "white"))))
93
93
'(widget-field ((t (:extend t :background "LightSteelBlue2"))))
94
Added:
'(swiper-line-face ((t (:inherit (highlight)))))
95
Added:
'(swiper-background-match-face-1 ((t (:background "cyan"))))
96
Added:
'(swiper-background-match-face-2 ((t (:background "chartreuse"))))
97
Added:
'(swiper-background-match-face-3 ((t (:background "orange"))))
98
Added:
'(swiper-background-match-face-4 ((t (:background "magenta"))))
94
99
'(default ((t (:background "white" :foreground "black" :height 142 :family "Hack")))))
95
100
96
101
(provide-theme 'sd-light)