about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--emacs.d/brianna-theme.el75
1 files changed, 62 insertions, 13 deletions
diff --git a/emacs.d/brianna-theme.el b/emacs.d/brianna-theme.el index c23239b..2860d37 100644 --- a/emacs.d/brianna-theme.el +++ b/emacs.d/brianna-theme.el
@@ -9,13 +9,21 @@
9;; (custom-theme-set-variables 'brianna) 9;; (custom-theme-set-variables 'brianna)
10 10
11(defvar fclear 11(defvar fclear
12 '((t ( :foreground unspecified :background unspecified 12 '((t ()))
13 :width unspecified :height unspecified 13 ;; '((t ( :foreground unspecified :background unspecified
14 :weight unspecified :slant unspecified 14 ;; :width unspecified :height unspecified
15 :underline nil :overline nil :strike-through nil :box nil 15 ;; :weight unspecified :slant unspecified
16 :inverse-video nil :extend nil))) 16 ;; :underline nil :overline nil :strike-through nil :box nil
17 ;; :inverse-video nil :extend nil)))
17 "Specification to clear a given face.") 18 "Specification to clear a given face.")
18 19
20(defface brianna-prompt '((t (:foreground "purple")))
21 "A face for prompts.")
22
23(defface brianna-input-field '((t ( :background "lavender"
24 :box (:line-width (1 . -1)))))
25 "A face for input fields.")
26
19(custom-theme-set-faces 27(custom-theme-set-faces
20 'brianna 28 'brianna
21 ;; Default 29 ;; Default
@@ -25,12 +33,16 @@
25 ;; Font lock -- clear 33 ;; Font lock -- clear
26 `(font-lock-bracket-face ,fclear) 34 `(font-lock-bracket-face ,fclear)
27 `(font-lock-builtin-face ,fclear) 35 `(font-lock-builtin-face ,fclear)
36 ;; `(font-lock-comment-delimiter-face ,fclear)
37 ;; `(font-lock-comment-face ,fclear)
28 `(font-lock-constant-face ,fclear) 38 `(font-lock-constant-face ,fclear)
29 `(font-lock-delimiter-face ,fclear) 39 `(font-lock-delimiter-face ,fclear)
40 ;; `(font-lock-doc-face ,fclear)
30 `(font-lock-doc-markup-face ,fclear) 41 `(font-lock-doc-markup-face ,fclear)
31 `(font-lock-escape-face ,fclear) 42 `(font-lock-escape-face ,fclear)
32 `(font-lock-function-call-face ,fclear) 43 `(font-lock-function-call-face ,fclear)
33 `(font-lock-function-name-face ,fclear) 44 `(font-lock-function-name-face ,fclear)
45 ;; `(font-lock-keyword-face ,fclear)
34 `(font-lock-misc-punctuation-face ,fclear) 46 `(font-lock-misc-punctuation-face ,fclear)
35 `(font-lock-negation-char-face ,fclear) 47 `(font-lock-negation-char-face ,fclear)
36 `(font-lock-number-face ,fclear) 48 `(font-lock-number-face ,fclear)
@@ -64,7 +76,7 @@
64 '(lazy-highlight ((t (:background "dark sea green")))) 76 '(lazy-highlight ((t (:background "dark sea green"))))
65 '(link ((t (:foreground "navy" :underline t)))) 77 '(link ((t (:foreground "navy" :underline t))))
66 '(match ((t (:background "wheat")))) 78 '(match ((t (:background "wheat"))))
67 '(pulse-highlight-start-face ((t (:background "orchid")))) 79 '(pulse-highlight-start-face ((t (:background "goldenrod"))))
68 '(query-replace ((t (:background "wheat")))) 80 '(query-replace ((t (:background "wheat"))))
69 '(region ((t (:background "papaya whip")))) 81 '(region ((t (:background "papaya whip"))))
70 '(shadow ((t (:foreground "orchid")))) 82 '(shadow ((t (:foreground "orchid"))))
@@ -79,13 +91,13 @@
79 '(completions-annotations ((t (:inherit 'italic)))) 91 '(completions-annotations ((t (:inherit 'italic))))
80 '(completions-highlight ((t (:background "wheat")))) 92 '(completions-highlight ((t (:background "wheat"))))
81 '(header-line ((t (:background "lavender" :inherit variable-pitch)))) 93 '(header-line ((t (:background "lavender" :inherit variable-pitch))))
82 '(minibuffer-prompt ((t (:foreground "dark orchid")))) 94 '(minibuffer-prompt ((t (:inherit brianna-prompt))))
83 '(mode-line ((t (:background "lavender" :inherit variable-pitch)))) 95 '(mode-line ((t (:background "lavender" :inherit variable-pitch))))
84 '(mode-line-active ((t ( :box t :background "light goldenrod" 96 '(mode-line-active ((t ( :box t :background "light goldenrod"
85 :inherit mode-line)))) 97 :inherit mode-line))))
86 '(mode-line-inactive ((t ( :box "pale goldenrod" :background "pale goldenrod" 98 '(mode-line-inactive ((t ( :box "pale goldenrod" :background "pale goldenrod"
87 :inherit mode-line)))) 99 :inherit mode-line))))
88 '(tab-bar ((t (:inherit mode-line-inactive)))) 100 '(tab-bar ((t (:inherit mode-line-inactive))))
89 '(tab-bar-tab ((t ( :background "light goldenrod" :box t 101 '(tab-bar-tab ((t ( :background "light goldenrod" :box t
90 :inherit variable-pitch)))) 102 :inherit variable-pitch))))
91 '(tab-bar-tab-inactive ((t ( :background "pale goldenrod" 103 '(tab-bar-tab-inactive ((t ( :background "pale goldenrod"
@@ -93,8 +105,12 @@
93 '(vertical-border ((t (:foreground "gray")))) 105 '(vertical-border ((t (:foreground "gray"))))
94 106
95 ;;; Specific modes &c 107 ;;; Specific modes &c
108 ;; Dired
109 '(dired-header ((t (:underline t :extend t))))
96 ;; Eshell 110 ;; Eshell
97 '(eshell-prompt ((t (:foreground "dark orchid")))) 111 '(eshell-prompt ((t (:inherit brianna-prompt))))
112 ;; Eww
113 '(eww-form-text ((t (:inherit brianna-input-field))))
98 ;; Gemtext mode 114 ;; Gemtext mode
99 '(gemtext-face-heading1 ((t ( :weight bold 115 '(gemtext-face-heading1 ((t ( :weight bold
100 :inherit variable-pitch)))) 116 :inherit variable-pitch))))
@@ -107,16 +123,49 @@
107 '(info-title-2 ((t (:inherit variable-pitch)))) 123 '(info-title-2 ((t (:inherit variable-pitch))))
108 '(info-title-3 ((t (:inherit variable-pitch)))) 124 '(info-title-3 ((t (:inherit variable-pitch))))
109 '(info-title-4 ((t (:inherit variable-pitch)))) 125 '(info-title-4 ((t (:inherit variable-pitch))))
126 ;; Jabber
127 '(jabber-activity-face ((t (:inherit italic))))
128 '(jabber-activity-personal-face ((t (:inherit rcirc-track-nick))))
129 '(jabber-chat-error ((t (:inherit error))))
130 '(jabber-chat-prompt-foreign ((t (:inherit brianna-prompt))))
131 '(jabber-chat-prompt-local ((t (:inherit brianna-prompt))))
132 '(jabber-chat-prompt-system ((t (:inherit brianna-prompt))))
133 '(jabber-chat-text-foreign ((t (:inherit default))))
134 '(jabber-chat-text-local ((t (:inherit default))))
135 '(jabber-muc-presence-dim ((t (:inherit shadow))))
136 '(jabber-rare-time-face ((t (:inherit shadow))))
137 '(jabber-title-large ((t (:inherit (variable-pitch outline-1)))))
138 '(jabber-title-medium ((t (:inherit (variable-pitch outline-2)))))
139 '(jabber-title-small ((t (:inherit (variable-pitch outline-3)))))
140 ;; Outline
141 '(outline-1 ((t (:inherit (bold underline italic) :extend t))))
142 '(outline-2 ((t (:inherit (bold underline)))))
143 '(outline-3 ((t (:inherit (italic underline)))))
144 '(outline-3 ((t (:inherit (italic underline)))))
145 '(outline-4 ((t (:inherit (italic underline)))))
146 '(outline-5 ((t (:inherit (italic underline)))))
147 '(outline-6 ((t (:inherit (italic underline)))))
148 '(outline-7 ((t (:inherit (italic underline)))))
149 '(outline-8 ((t (:inherit (italic underline)))))
150 ;; Org
151 '(org-document-info-keyword ((t (:inherit default))))
152 '(org-document-info ((t (:foreground "navy"))))
153 '(org-document-title ((t (:inherit org-document-info))))
154 '(org-drawer ((t (:inherit font-lock-comment-face))))
110 ;; RCIRC 155 ;; RCIRC
111 '(rcirc-my-nick ((t (:weight bold :slant italic)))) 156 '(rcirc-my-nick ((t (:weight bold :slant italic))))
112 '(rcirc-nick-in-message ((t (:weight bold :slant italic)))) 157 '(rcirc-nick-in-message ((t (:weight bold :slant italic))))
113 '(rcirc-other-nick ((t (:slant italic)))) 158 '(rcirc-other-nick ((t (:slant italic))))
114 '(rcirc-prompt ((t (:foreground "dark orchid")))) 159 '(rcirc-prompt ((t (:inherit brianna-prompt))))
160 '(rcirc-timestamp ((t (:inherit shadow))))
161 '(rcirc-server ((t (:inherit shadow))))
115 '(rcirc-track-nick ((t (:weight bold :slant italic :inverse-video nil)))) 162 '(rcirc-track-nick ((t (:weight bold :slant italic :inverse-video nil))))
163 ;; Sh
164 '(sh-heredoc ((t ( :background "azure" :extend t
165 :inherit font-lock-string-face))))
116 ;; Widgets 166 ;; Widgets
117 '(widget-field ((t ( :background "lavender" :box (:line-width (1 . -1)) 167 '(widget-field ((t (:inherit brianna-input-field))))
118 :extend t)))) 168 '(widget-single-line-field ((t (:inherit brianna-input-field))))
119 '(widget-single-line-field ((t (:background "lavender"))))
120 ) 169 )
121 170
122(provide-theme 'brianna) 171(provide-theme 'brianna)