1 ;;; fae-fire-theme.el --- “Ghost lights through a fog” -*- lexical-binding: t; -*-
3 ;; Author: Joe Wreschnig
4 ;; Package-Version: 20170806
5 ;; Package-Requires: ((emacs "24"))
7 ;; URL: https://git.korewanetadesu.com/fae-fire-theme.git
9 ;; This is free and unencumbered software released into the public
10 ;; domain. Anyone is free to copy, modify, publish, use, compile, sell,
11 ;; or distribute this software, either in source code form or as a
12 ;; compiled binary, for any purpose, commercial or non-commercial, and
18 ;; An earthy theme inspired by Galen Dara’s illustration for Kathleen
19 ;; Kayeme’s story “The Fairy Tree”. See URL
20 ;; ‘http://www.lightspeedmagazine.com/fiction/the-faerie-tree/’.
25 (deftheme fae-fire "“Ghost lights through a fog”
27 An earthy theme inspired by Galen Dara’s illustration for
28 Kathleen Kayeme’s story “The Fairy Tree”. See URL
29 ‘http://www.lightspeedmagazine.com/fiction/the-faerie-tree/’.")
31 (let ((c000 "#0b1318")
161 (custom-theme-set-faces
165 `(button ((t (:inherit (link)))))
166 `(cursor ((t (:background ,c122))))
167 `(default ((t (:background ,c002 :foreground ,c127))))
168 `(error ((t (:foreground ,c051))))
169 `(escape-glyph ((t (:foreground ,c095))))
170 `(fringe ((t (:background ,c001))))
171 `(header-line ((t (:background ,c009 :foreground ,c077))))
172 `(highlight ((t (:background ,c032 :foreground ,c125))))
173 `(isearch ((t (:background ,c039))))
174 `(lazy-highlight ((t (:background ,c032))))
175 `(link ((t (:foreground ,c104 :underline t))))
176 `(link-visited ((t (:inherit link :foreground ,c115))))
177 `(match ((t (:inherit (lazy-highlight)))))
178 `(menu ((t (:background ,c028))))
179 `(minibuffer-prompt ((t (:foreground ,c092))))
180 `(mode-line ((t (:background ,c067 :foreground ,c125))))
181 `(mode-line-buffer-id ((t (:weight bold :foreground ,c124))))
182 `(mode-line-emphasis ((t (:weight bold))))
183 `(mode-line-highlight ((t (:foreground ,c126))))
184 `(mode-line-inactive ((t (:background ,c034 :foreground ,c069))))
185 `(nobreak-space ((t (:foreground ,c074 :underline t))))
186 `(region ((t (:background ,c019))))
187 `(secondary-selection ((t (:inherit (region)))))
188 `(shadow ((t (:foreground ,c055))))
189 `(success ((t (:foreground ,c116))))
190 `(trailing-whitespace ((t (:background ,c105))))
191 `(warning ((t (:foreground ,c107))))
194 `(font-lock-builtin-face ((t (:foreground ,c101))))
195 `(font-lock-comment-delimiter-face ((t (:foreground ,c074))))
196 `(font-lock-comment-face ((t (:foreground ,c074))))
197 `(font-lock-constant-face ((t (:foreground ,c105))))
198 `(font-lock-doc-face ((t (:foreground ,c070))))
199 `(font-lock-function-name-face ((t (:foreground ,c089))))
200 `(font-lock-keyword-face ((t (:foreground ,c104))))
201 `(font-lock-negation-char-face ((t nil)))
202 `(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
203 `(font-lock-regexp-grouping-backslash ((t :foreground ,c056)))
204 `(font-lock-regexp-grouping-construct ((t :foreground ,c056)))
205 `(font-lock-string-face ((t (:foreground ,c087))))
206 `(font-lock-type-face ((t (:foreground ,c115))))
207 `(font-lock-variable-name-face ((t (:foreground ,c090))))
208 `(font-lock-warning-face ((t (:foreground ,c107))))
210 ;; Highlighted Line Face
211 `(hl-line ((t (:background ,c025))))
213 ;; Matching / I-search Faces
214 `(isearch-fail ((t (:foreground ,c068))))
215 `(query-replace ((t (:inherit (isearch)))))
217 ;; Flyspell Mode Faces
218 `(flyspell-incorrect ((t (:underline (:color ,c051 :style wave)))))
219 `(flyspell-duplicate ((t (:inherit (flyspell-incorrect)))))
222 `(flycheck-error ((t (:underline (:color ,c051 :style wave)))))
223 `(flycheck-error-list-error ((t (:foreground ,c051))))
224 `(flycheck-fringe-error ((t (:foreground ,c051))))
225 `(flycheck-warning ((t (:underline (:color ,c103 :style wave)))))
226 `(flycheck-error-list-warning ((t (:foreground ,c103))))
227 `(flycheck-fringe-warning ((t (:foreground ,c103))))
228 `(flycheck-info ((t (:underline (:color ,c108 :style wave)))))
229 `(flycheck-error-list-info ((t (:foreground ,c108))))
230 `(flycheck-fringe-info ((t (:foreground ,c108))))
231 `(flycheck-error-list-id ((t (:inherit (font-lock-constant-face)))))
232 `(flycheck-error-list-checker-name ((t (:foreground ,c108))))
234 ;; Powerline Faces ;; TODO: Add Powerline theme
235 `(powerline-active1 ((t (:background ,c054 :foreground ,c125))))
236 `(powerline-inactive1 ((t (:background ,c024 :foreground ,c048))))
237 `(mode-line-buffer-id-inactive ((t (:foreground ,c086))))
239 ;; Pp^l Highlight Face
240 `(pp^L-highlight ((t (:box (:color ,c074)))))
243 `(spar^l-mode ((t (:foreground ,c053))))
246 `(magit-section-highlight ((t (:inherit (region)))))
247 `(magit-section-heading ((t (:foreground ,c094 :weight bold))))
248 `(magit-branch-remote ((t (:foreground ,c087))))
249 `(magit-branch-local ((t (:foreground ,c102))))
250 `(git-commit-summary ((t (:foreground ,c113))))
251 `(git-commit-overlong-summary ((t (:inherit (shadow)))))
252 `(git-commit-nonempty-second-line ((t (:foreground ,c030))))
255 `(shr-link ((t (:foreground ,c108))))
257 ;; Mail, elfeed, etc.
258 `(message-header-name ((t (:foreground ,c058))))
259 `(message-header-subject ((t (:foreground ,c125))))
260 `(message-header-to ((t (:foreground ,c079))))
261 `(message-header-other ((t (:foreground ,c059))))
264 `(elfeed-search-date-face ((t (:foreground ,c075))))
265 `(elfeed-search-title-face ((t (:foreground ,c076))))
266 `(elfeed-search-unread-title-face ((t (:foreground ,c124))))
267 `(elfeed-search-feed-face ((t (:foreground ,c114))))
268 `(elfeed-search-tag-face ((t (:foreground ,c087))))
269 `(elfeed-search-last-update-face ((t (:foreground ,c094))))
270 `(elfeed-search-unread-count-face ((t (:foreground ,c092))))
271 `(elfeed-search-filter-face ((t (:foreground ,c100))))
274 `(aw-leading-char-face ((t (:foreground ,c106))))
277 `(company-tooltip ((t (:background ,c029 :foreground ,c104))))
278 `(company-tooltip-selection ((t (:background ,c041))))
279 `(company-tooltip-common ((t (:foreground ,c062))))
280 `(company-scrollbar-bg ((t (:background ,c029))))
281 `(company-scrollbar-fg ((t (:background ,c060))))
287 (add-to-list 'custom-theme-load-path
288 (file-name-directory load-file-name)))
290 (provide-theme 'fae-fire)
291 (provide 'fae-fire-theme)
294 ;;; fae-fire-theme.el ends here