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