about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--emacs.d/brianna-theme.el122
1 files changed, 122 insertions, 0 deletions
diff --git a/emacs.d/brianna-theme.el b/emacs.d/brianna-theme.el new file mode 100644 index 0000000..c23239b --- /dev/null +++ b/emacs.d/brianna-theme.el
@@ -0,0 +1,122 @@
1;;; brianna-theme -*- lexical-binding: t; -*-
2;; a little theme by acdw
3;; (and named by noa)
4
5(deftheme brianna
6 "A little theme by acdw"
7 :background-mode 'light)
8
9;; (custom-theme-set-variables 'brianna)
10
11(defvar fclear
12 '((t ( :foreground unspecified :background unspecified
13 :width unspecified :height unspecified
14 :weight unspecified :slant unspecified
15 :underline nil :overline nil :strike-through nil :box nil
16 :inverse-video nil :extend nil)))
17 "Specification to clear a given face.")
18
19(custom-theme-set-faces
20 'brianna
21 ;; Default
22 '(default ((t ( :foreground "black"
23 :background "alice blue"))))
24
25 ;; Font lock -- clear
26 `(font-lock-bracket-face ,fclear)
27 `(font-lock-builtin-face ,fclear)
28 `(font-lock-constant-face ,fclear)
29 `(font-lock-delimiter-face ,fclear)
30 `(font-lock-doc-markup-face ,fclear)
31 `(font-lock-escape-face ,fclear)
32 `(font-lock-function-call-face ,fclear)
33 `(font-lock-function-name-face ,fclear)
34 `(font-lock-misc-punctuation-face ,fclear)
35 `(font-lock-negation-char-face ,fclear)
36 `(font-lock-number-face ,fclear)
37 `(font-lock-operator-face ,fclear)
38 `(font-lock-preprocessor-face ,fclear)
39 `(font-lock-property-name-face ,fclear)
40 `(font-lock-property-use-face ,fclear)
41 `(font-lock-punctuation-face ,fclear)
42 `(font-lock-regexp-face ,fclear)
43 `(font-lock-regexp-grouping-backslash ,fclear)
44 `(font-lock-regexp-grouping-construct ,fclear)
45 `(font-lock-string-face ,fclear)
46 `(font-lock-type-face ,fclear)
47 `(font-lock-variable-name-face ,fclear)
48 `(font-lock-variable-use-face ,fclear)
49 `(font-lock-warning-face ,fclear)
50
51 ;; Font lock
52 '(font-lock-comment-delimiter-face ((t (:slant italic))))
53 '(font-lock-comment-face ((t (:slant italic))))
54 '(font-lock-doc-face ((t (:slant italic))))
55 '(font-lock-keyword-face ((t (:weight bold))))
56
57 ;; Propertized text
58 '(bold ((t (:weight bold))))
59 '(error ((t (:foreground "red" :slant italic))))
60 '(highlight ((t (:background "wheat"))))
61 '(isearch ((t (:background "sea green" :foreground "white"))))
62 '(isearch-fail ((t (:background "tomato"))))
63 '(italic ((t (:slant italic))))
64 '(lazy-highlight ((t (:background "dark sea green"))))
65 '(link ((t (:foreground "navy" :underline t))))
66 '(match ((t (:background "wheat"))))
67 '(pulse-highlight-start-face ((t (:background "orchid"))))
68 '(query-replace ((t (:background "wheat"))))
69 '(region ((t (:background "papaya whip"))))
70 '(shadow ((t (:foreground "orchid"))))
71 '(show-paren-match ((t (:background "goldenrod"))))
72 '(show-paren-mismatch ((t (:foreground "red" :slant italic))))
73 '(success ((t (:foreground "sea green" :slant italic))))
74 '(trailing-whitespace ((t (:background "tomato"))))
75 '(underline ((t (:underline t))))
76 '(warning ((t (:foreground "brown" :slant italic))))
77
78 ;; User interface
79 '(completions-annotations ((t (:inherit 'italic))))
80 '(completions-highlight ((t (:background "wheat"))))
81 '(header-line ((t (:background "lavender" :inherit variable-pitch))))
82 '(minibuffer-prompt ((t (:foreground "dark orchid"))))
83 '(mode-line ((t (:background "lavender" :inherit variable-pitch))))
84 '(mode-line-active ((t ( :box t :background "light goldenrod"
85 :inherit mode-line))))
86 '(mode-line-inactive ((t ( :box "pale goldenrod" :background "pale goldenrod"
87 :inherit mode-line))))
88 '(tab-bar ((t (:inherit mode-line-inactive))))
89 '(tab-bar-tab ((t ( :background "light goldenrod" :box t
90 :inherit variable-pitch))))
91 '(tab-bar-tab-inactive ((t ( :background "pale goldenrod"
92 :inherit variable-pitch))))
93 '(vertical-border ((t (:foreground "gray"))))
94
95 ;;; Specific modes &c
96 ;; Eshell
97 '(eshell-prompt ((t (:foreground "dark orchid"))))
98 ;; Gemtext mode
99 '(gemtext-face-heading1 ((t ( :weight bold
100 :inherit variable-pitch))))
101 '(gemtext-face-heading2 ((t ( :weight bold
102 :inherit variable-pitch))))
103 '(gemtext-face-heading3 ((t ( :weight bold
104 :inherit variable-pitch))))
105 ;; Info
106 '(info-title-1 ((t (:inherit variable-pitch))))
107 '(info-title-2 ((t (:inherit variable-pitch))))
108 '(info-title-3 ((t (:inherit variable-pitch))))
109 '(info-title-4 ((t (:inherit variable-pitch))))
110 ;; RCIRC
111 '(rcirc-my-nick ((t (:weight bold :slant italic))))
112 '(rcirc-nick-in-message ((t (:weight bold :slant italic))))
113 '(rcirc-other-nick ((t (:slant italic))))
114 '(rcirc-prompt ((t (:foreground "dark orchid"))))
115 '(rcirc-track-nick ((t (:weight bold :slant italic :inverse-video nil))))
116 ;; Widgets
117 '(widget-field ((t ( :background "lavender" :box (:line-width (1 . -1))
118 :extend t))))
119 '(widget-single-line-field ((t (:background "lavender"))))
120 )
121
122(provide-theme 'brianna)