1 (deftheme BTCSB "Baby, The Code Shines Bright.")
3 (let ((class '((class color) (min-colors 89)))
10 (btcsb-fg-6 "#de99bf")
11 (btcsb-fg-7 "#94579e")
12 (btcsb-fg-8 "#61c8c3")
13 (btcsb-fg-9 "#f465b6")
14 (btcsb-fg-10 "#9ca8d4")
16 (btcsb-bg-1 "#a768ef")
17 (btcsb-bg-2 "#533477")
18 (btcsb-bg-3 "#d44741")
19 (btcsb-bg-4 "#2a1852")
20 (btcsb-bg-5 "#041c1a")
23 (custom-theme-set-faces
25 `(default ((t (:background "black"
33 `(cursor ((t (:background "#FFFFFF"))))
34 `(fixed-pitch ((t (:family "Monospace"))))
35 `(variable-pitch ((t (:family "Sans Serif"))))
36 `(escape-glyph ((t (:foreground ,btcsb-fg-2))))
37 `(minibuffer-prompt ((t (:foreground ,btcsb-fg-1))))
38 `(highlight ((t (:background ,btcsb-bg-1))))
39 `(region ((t (:background ,btcsb-bg-2))))
40 `(shadow ((t (:foreground "#777777"))))
41 `(secondary-selection ((t (:background ,btcsb-bg-2))))
42 `(trailing-whitespace ((t (:background ,btcsb-bg-3))))
43 `(font-lock-builtin-face ((t (:foreground ,btcsb-fg-3))))
44 `(font-lock-comment-delimiter-face ((t (:inherit (font-lock-comment-face)))))
45 `(font-lock-comment-face ((t (:foreground ,btcsb-fg-4 :slant italic))))
46 `(font-lock-constant-face ((t (:foreground ,btcsb-fg-5))))
47 `(font-lock-doc-face ((t (:inherit font-lock-string-face))))
48 `(font-lock-function-name-face ((t (:foreground ,btcsb-fg-6))))
49 `(font-lock-keyword-face ((t (:foreground ,btcsb-fg-7))))
50 `(font-lock-negation-char-face ((t nil)))
51 `(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
52 `(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
53 `(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
54 `(font-lock-string-face ((t (:foreground ,btcsb-fg-8))))
55 `(font-lock-type-face ((t (:foreground ,btcsb-fg-3))))
56 `(font-lock-variable-name-face ((t (:foreground ,btcsb-fg-9))))
57 `(font-lock-warning-face ((t (:background ,btcsb-bg-4
58 :foreground ,btcsb-fg-10
60 `(button ((t (:inherit (link)))))
61 `(link ((t (:foreground ,btcsb-fg-2 :underline t))))
62 `(link-visited ((t (:inherit link :foreground ,btcsb-fg-6))))
63 `(fringe ((t (:background ,btcsb-bg-5))))
64 `(header-line ((t (:inherit mode-line
65 :background ,btcsb-bg-5
68 `(tooltip ((t (:inherit variable-pitch
69 :background ,btcsb-fg-2
70 :foreground "black"))))
71 `(mode-line ((t (:background ,btcsb-fg-1
73 :box (:line-width -1 :style released-button)))))
74 `(mode-line-buffer-id ((t (:weight bold))))
75 `(mode-line-emphasis ((t (:weight bold))))
76 `(mode-line-highlight ((t (:background ,btcsb-bg-2
79 :style released-button)))))
80 `(mode-line-inactive ((t (:weight light
81 :box (:line-width -1 :color ,btcsb-bg-2)
83 :background ,btcsb-bg-2
84 :inherit mode-line))))
85 `(isearch ((t (:background ,btcsb-bg-1))))
86 `(isearch-fail ((t (:background ,btcsb-bg-3 :foreground ,btcsb-fg))))
87 `(lazy-highlight ((t (:background ,btcsb-bg-2))))
88 `(match ((t (:background ,btcsb-fg-1))))
89 `(next-error ((t (:inherit (region)))))
90 `(query-replace ((t (:inherit (isearch)))))
92 `(flyspell-duplicate ((t (:foreground ,btcsb-fg-9
95 `(flyspell-incorrect ((t (:foreground ,btcsb-fg-9
101 (boundp 'custom-theme-load-path)
102 (add-to-list 'custom-theme-load-path
103 (file-name-as-directory
104 (file-name-directory load-file-name))))
106 (provide-theme 'BTCSB)