diff options
Diffstat (limited to 'emacs.d/brianna-theme.el')
-rw-r--r-- | emacs.d/brianna-theme.el | 114 |
1 files changed, 56 insertions, 58 deletions
diff --git a/emacs.d/brianna-theme.el b/emacs.d/brianna-theme.el index 43223f6..a4cd74d 100644 --- a/emacs.d/brianna-theme.el +++ b/emacs.d/brianna-theme.el | |||
@@ -17,7 +17,11 @@ | |||
17 | ;; :inverse-video nil :extend nil))) | 17 | ;; :inverse-video nil :extend nil))) |
18 | "Specification to clear a given face.") | 18 | "Specification to clear a given face.") |
19 | 19 | ||
20 | (defface brianna-prompt '((t (:foreground "purple"))) | 20 | (defun fclear (face) |
21 | "Set FACE spec to `fclear' --- inside `custom-theme-set-faces'." | ||
22 | (list face fclear)) | ||
23 | |||
24 | (defface brianna-prompt '((t (:inherit bold))) | ||
21 | "A face for prompts.") | 25 | "A face for prompts.") |
22 | 26 | ||
23 | (defface brianna-input-field '((t ( :background "lavender" | 27 | (defface brianna-input-field '((t ( :background "lavender" |
@@ -31,40 +35,37 @@ | |||
31 | :background "alice blue")))) | 35 | :background "alice blue")))) |
32 | 36 | ||
33 | ;; Font lock -- clear | 37 | ;; Font lock -- clear |
34 | `(font-lock-bracket-face ,fclear) | 38 | (fclear 'font-lock-bracket-face) |
35 | `(font-lock-builtin-face ,fclear) | 39 | (fclear 'font-lock-builtin-face) |
36 | ;; `(font-lock-comment-delimiter-face ,fclear) | 40 | (fclear 'font-lock-constant-face) |
37 | ;; `(font-lock-comment-face ,fclear) | 41 | (fclear 'font-lock-delimiter-face) |
38 | `(font-lock-constant-face ,fclear) | 42 | (fclear 'font-lock-doc-markup-face) |
39 | `(font-lock-delimiter-face ,fclear) | 43 | (fclear 'font-lock-escape-face) |
40 | ;; `(font-lock-doc-face ,fclear) | 44 | (fclear 'font-lock-function-call-face) |
41 | `(font-lock-doc-markup-face ,fclear) | 45 | (fclear 'font-lock-function-name-face) |
42 | `(font-lock-escape-face ,fclear) | 46 | (fclear 'font-lock-keyword-face) |
43 | `(font-lock-function-call-face ,fclear) | 47 | (fclear 'font-lock-misc-punctuation-face) |
44 | `(font-lock-function-name-face ,fclear) | 48 | (fclear 'font-lock-negation-char-face) |
45 | ;; `(font-lock-keyword-face ,fclear) | 49 | (fclear 'font-lock-number-face) |
46 | `(font-lock-misc-punctuation-face ,fclear) | 50 | (fclear 'font-lock-operator-face) |
47 | `(font-lock-negation-char-face ,fclear) | 51 | (fclear 'font-lock-preprocessor-face) |
48 | `(font-lock-number-face ,fclear) | 52 | (fclear 'font-lock-property-name-face) |
49 | `(font-lock-operator-face ,fclear) | 53 | (fclear 'font-lock-property-use-face) |
50 | `(font-lock-preprocessor-face ,fclear) | 54 | (fclear 'font-lock-punctuation-face) |
51 | `(font-lock-property-name-face ,fclear) | 55 | (fclear 'font-lock-regexp-face) |
52 | `(font-lock-property-use-face ,fclear) | 56 | (fclear 'font-lock-regexp-grouping-backslash) |
53 | `(font-lock-punctuation-face ,fclear) | 57 | (fclear 'font-lock-regexp-grouping-construct) |
54 | `(font-lock-regexp-face ,fclear) | 58 | (fclear 'font-lock-type-face) |
55 | `(font-lock-regexp-grouping-backslash ,fclear) | 59 | (fclear 'font-lock-variable-name-face) |
56 | `(font-lock-regexp-grouping-construct ,fclear) | 60 | (fclear 'font-lock-variable-use-face) |
57 | `(font-lock-string-face ,fclear) | 61 | (fclear 'font-lock-warning-face) |
58 | `(font-lock-type-face ,fclear) | ||
59 | `(font-lock-variable-name-face ,fclear) | ||
60 | `(font-lock-variable-use-face ,fclear) | ||
61 | `(font-lock-warning-face ,fclear) | ||
62 | 62 | ||
63 | ;; Font lock | 63 | ;; Font lock |
64 | '(font-lock-comment-delimiter-face ((t (:slant italic)))) | 64 | '(font-lock-comment-delimiter-face ((t (:slant italic)))) |
65 | '(font-lock-comment-face ((t (:slant italic)))) | 65 | '(font-lock-comment-face ((t (:slant italic)))) |
66 | '(font-lock-doc-face ((t (:slant italic)))) | 66 | '(font-lock-string-face ((t (:weight bold)))) |
67 | '(font-lock-keyword-face ((t (:weight bold)))) | 67 | '(font-lock-doc-face ((t (:inherit (font-lock-string-face |
68 | font-lock-comment-face))))) | ||
68 | 69 | ||
69 | ;; Propertized text | 70 | ;; Propertized text |
70 | '(bold ((t (:weight bold)))) | 71 | '(bold ((t (:weight bold)))) |
@@ -105,6 +106,16 @@ | |||
105 | '(vertical-border ((t (:foreground "gray")))) | 106 | '(vertical-border ((t (:foreground "gray")))) |
106 | 107 | ||
107 | ;;; Specific modes &c | 108 | ;;; Specific modes &c |
109 | ;; Outline --- these go first b/c so many other headlines inherit from them | ||
110 | '(outline-1 ((t (:inherit (bold underline italic) :extend t)))) | ||
111 | '(outline-2 ((t (:inherit (bold underline))))) | ||
112 | '(outline-3 ((t (:inherit (italic underline))))) | ||
113 | '(outline-3 ((t (:inherit (italic underline))))) | ||
114 | '(outline-4 ((t (:inherit (italic underline))))) | ||
115 | '(outline-5 ((t (:inherit (italic underline))))) | ||
116 | '(outline-6 ((t (:inherit (italic underline))))) | ||
117 | '(outline-7 ((t (:inherit (italic underline))))) | ||
118 | '(outline-8 ((t (:inherit (italic underline))))) | ||
108 | ;; Dired | 119 | ;; Dired |
109 | '(dired-header ((t (:underline t :extend t)))) | 120 | '(dired-header ((t (:underline t :extend t)))) |
110 | ;; Elastic indent | 121 | ;; Elastic indent |
@@ -114,17 +125,14 @@ | |||
114 | ;; Eww | 125 | ;; Eww |
115 | '(eww-form-text ((t (:inherit brianna-input-field)))) | 126 | '(eww-form-text ((t (:inherit brianna-input-field)))) |
116 | ;; Gemtext mode | 127 | ;; Gemtext mode |
117 | '(gemtext-face-heading1 ((t ( :weight bold | 128 | '(gemtext-face-heading1 ((t (:inherit outline-1)))) |
118 | :inherit variable-pitch)))) | 129 | '(gemtext-face-heading2 ((t (:inherit outline-2)))) |
119 | '(gemtext-face-heading2 ((t ( :weight bold | 130 | '(gemtext-face-heading3 ((t (:inherit outline-3)))) |
120 | :inherit variable-pitch)))) | ||
121 | '(gemtext-face-heading3 ((t ( :weight bold | ||
122 | :inherit variable-pitch)))) | ||
123 | ;; Info | 131 | ;; Info |
124 | '(info-title-1 ((t (:inherit variable-pitch)))) | 132 | '(info-title-1 ((t (:inherit outline-1)))) |
125 | '(info-title-2 ((t (:inherit variable-pitch)))) | 133 | '(info-title-2 ((t (:inherit outline-2)))) |
126 | '(info-title-3 ((t (:inherit variable-pitch)))) | 134 | '(info-title-3 ((t (:inherit outline-3)))) |
127 | '(info-title-4 ((t (:inherit variable-pitch)))) | 135 | '(info-title-4 ((t (:inherit outline-4)))) |
128 | ;; Jabber | 136 | ;; Jabber |
129 | '(jabber-activity-face ((t (:inherit italic)))) | 137 | '(jabber-activity-face ((t (:inherit italic)))) |
130 | '(jabber-activity-personal-face ((t (:inherit rcirc-track-nick)))) | 138 | '(jabber-activity-personal-face ((t (:inherit rcirc-track-nick)))) |
@@ -136,23 +144,13 @@ | |||
136 | '(jabber-chat-text-local ((t (:inherit default)))) | 144 | '(jabber-chat-text-local ((t (:inherit default)))) |
137 | '(jabber-muc-presence-dim ((t (:inherit shadow)))) | 145 | '(jabber-muc-presence-dim ((t (:inherit shadow)))) |
138 | '(jabber-rare-time-face ((t (:inherit shadow)))) | 146 | '(jabber-rare-time-face ((t (:inherit shadow)))) |
139 | '(jabber-title-large ((t (:inherit (variable-pitch outline-1))))) | 147 | '(jabber-title-large ((t (:inherit outline-1)))) |
140 | '(jabber-title-medium ((t (:inherit (variable-pitch outline-2))))) | 148 | '(jabber-title-medium ((t (:inherit outline-2)))) |
141 | '(jabber-title-small ((t (:inherit (variable-pitch outline-3))))) | 149 | '(jabber-title-small ((t (:inherit outline-3)))) |
142 | ;; Outline | ||
143 | '(outline-1 ((t (:inherit (bold underline italic) :extend t)))) | ||
144 | '(outline-2 ((t (:inherit (bold underline))))) | ||
145 | '(outline-3 ((t (:inherit (italic underline))))) | ||
146 | '(outline-3 ((t (:inherit (italic underline))))) | ||
147 | '(outline-4 ((t (:inherit (italic underline))))) | ||
148 | '(outline-5 ((t (:inherit (italic underline))))) | ||
149 | '(outline-6 ((t (:inherit (italic underline))))) | ||
150 | '(outline-7 ((t (:inherit (italic underline))))) | ||
151 | '(outline-8 ((t (:inherit (italic underline))))) | ||
152 | ;; Org | 150 | ;; Org |
153 | '(org-document-info-keyword ((t (:inherit default)))) | 151 | (fclear 'org-document-info-keyword) |
154 | '(org-document-info ((t (:foreground "navy")))) | 152 | (fclear 'org-document-info) |
155 | '(org-document-title ((t (:inherit org-document-info)))) | 153 | (fclear 'org-document-title) |
156 | '(org-drawer ((t (:inherit font-lock-comment-face)))) | 154 | '(org-drawer ((t (:inherit font-lock-comment-face)))) |
157 | ;; RCIRC | 155 | ;; RCIRC |
158 | '(rcirc-my-nick ((t (:weight bold :slant italic)))) | 156 | '(rcirc-my-nick ((t (:weight bold :slant italic)))) |
@@ -165,7 +163,7 @@ | |||
165 | ;; Sh | 163 | ;; Sh |
166 | '(sh-heredoc ((t ( :background "azure" :extend t | 164 | '(sh-heredoc ((t ( :background "azure" :extend t |
167 | :inherit font-lock-string-face)))) | 165 | :inherit font-lock-string-face)))) |
168 | '(sh-quoted-exec ((t ()))) | 166 | (fclear 'sh-quoted-exec) |
169 | ;; Widgets | 167 | ;; Widgets |
170 | '(widget-field ((t (:inherit brianna-input-field)))) | 168 | '(widget-field ((t (:inherit brianna-input-field)))) |
171 | '(widget-single-line-field ((t (:inherit brianna-input-field)))) | 169 | '(widget-single-line-field ((t (:inherit brianna-input-field)))) |