;;; fae-fire-theme.el --- “Ghost lights through a fog” -*- lexical-binding: t; -*- ;; ;; Author: Joe Wreschnig ;; Package-Version: 20170806 ;; Package-Requires: ((emacs "24")) ;; Keywords: faces ;; URL: https://git.korewanetadesu.com/fae-fire-theme.git ;; ;; This is free and unencumbered software released into the public ;; domain. Anyone is free to copy, modify, publish, use, compile, sell, ;; or distribute this software, either in source code form or as a ;; compiled binary, for any purpose, commercial or non-commercial, and ;; by any means. ;;; Commentary: ;; ;; An earthy theme inspired by Galen Dara’s illustration for Kathleen ;; Kayeme’s story “The Fairy Tree”. See URL ;; ‘http://www.lightspeedmagazine.com/fiction/the-faerie-tree/’. ;;; Code: (deftheme fae-fire "“Ghost lights through a fog” An earthy theme inspired by Galen Dara’s illustration for Kathleen Kayeme’s story “The Fairy Tree”. See URL ‘http://www.lightspeedmagazine.com/fiction/the-faerie-tree/’.") (let ((c000 "#0b1318") (c001 "#141116") (c002 "#0d1721") (c003 "#121a1f") (c004 "#261715") (c005 "#111e28") (c006 "#1e1b20") (c007 "#241a1b") (c008 "#161d2c") (c009 "#321913") (c010 "#162025") (c011 "#1a272f") (c012 "#312424") (c013 "#2d252b") (c014 "#25272f") (c015 "#26282a") (c016 "#2a2826") (c017 "#192b3b") (c018 "#162d31") (c019 "#202e36") (c020 "#3f2729") (c021 "#472a24") (c022 "#592521") (c023 "#343224") (c024 "#1a3554") (c025 "#22384a") (c026 "#213a3e") (c027 "#2d373e") (c028 "#3f3335") (c029 "#393634") (c030 "#842823") (c031 "#7a332d") (c032 "#304656") (c033 "#32474b") (c034 "#274866") (c035 "#294a57") (c036 "#6c3c35") (c037 "#454553") (c038 "#514444") (c039 "#22544d") (c040 "#424c49") (c041 "#60463c") (c042 "#4c5040") (c043 "#2b567b") (c044 "#335767") (c045 "#315771") (c046 "#41555a") (c047 "#285c62") (c048 "#386580") (c049 "#376874") (c050 "#4a6573") (c051 "#af4d3f") (c052 "#9e5245") (c053 "#287268") (c054 "#366a97") (c055 "#6c6161") (c056 "#297472") (c057 "#8f5b4e") (c058 "#836155") (c059 "#626a64") (c060 "#77675a") (c061 "#4e726b") (c062 "#3c7792") (c063 "#66705d") (c064 "#427982") (c065 "#548989") (c066 "#438e8b") (c067 "#5586a8") (c068 "#c26d5f") (c069 "#488ca0") (c070 "#ba7261") (c071 "#608a7d") (c072 "#c67459") (c073 "#ad7c6c") (c074 "#8f838a") (c075 "#798e8e") (c076 "#838d7e") (c077 "#a08676") (c078 "#519d99") (c079 "#958d7d") (c080 "#e7795e") (c081 "#659a9a") (c082 "#719a8c") (c083 "#f5834d") (c084 "#60acbb") (c085 "#7baaa3") (c086 "#8ea9b0") (c087 "#7cabd5") (c088 "#64b7ad") (c089 "#f29757") (c090 "#d59b87") (c091 "#ee9671") (c092 "#c1a28b") (c093 "#aea5af") (c094 "#baa496") (c095 "#b0a797") (c096 "#9eac9e") (c097 "#91b19e") (c098 "#f09b64") (c099 "#a9ae92") (c100 "#e6a077") (c101 "#8bbab1") (c102 "#faad82") (c103 "#f5b56f") (c104 "#6fd4c9") (c105 "#f5b4a0") (c106 "#f6ba80") (c107 "#f7bc92") (c108 "#9cd5c5") (c109 "#ddc5b5") (c110 "#afd1d2") (c111 "#bad0be") (c112 "#ccccbc") (c113 "#c9cfaf") (c114 "#d8cac6") (c115 "#eec7ab") (c116 "#d3d4a5") (c117 "#f5cea1") (c118 "#fbe1c5") (c119 "#c1f6e4") (c120 "#e2eedb") (c121 "#f2f0be") (c122 "#d3f6e7") (c123 "#f9ebe5") (c124 "#ecf3d1") (c125 "#d5f8f5") (c126 "#f9f5d7") (c127 "#f4f5e7") ) (custom-theme-set-faces 'fae-fire ;; Basic Faces `(button ((t (:inherit (link))))) `(cursor ((t (:background ,c122)))) `(default ((t (:background ,c002 :foreground ,c127)))) `(error ((t (:foreground ,c051)))) `(escape-glyph ((t (:foreground ,c095)))) `(fringe ((t (:background ,c001)))) `(header-line ((t (:background ,c009 :foreground ,c077)))) `(highlight ((t (:background ,c032 :foreground ,c125)))) `(isearch ((t (:background ,c039)))) `(lazy-highlight ((t (:background ,c032)))) `(link ((t (:foreground ,c104 :underline t)))) `(link-visited ((t (:inherit link :foreground ,c115)))) `(match ((t (:inherit (lazy-highlight))))) `(menu ((t (:background ,c028)))) `(minibuffer-prompt ((t (:foreground ,c092)))) `(mode-line ((t (:background ,c067 :foreground ,c125)))) `(mode-line-buffer-id ((t (:weight bold :foreground ,c124)))) `(mode-line-emphasis ((t (:weight bold)))) `(mode-line-highlight ((t (:foreground ,c126)))) `(mode-line-inactive ((t (:background ,c034 :foreground ,c069)))) `(nobreak-space ((t (:foreground ,c074 :underline t)))) `(region ((t (:background ,c019)))) `(secondary-selection ((t (:inherit (region))))) `(shadow ((t (:foreground ,c055)))) `(success ((t (:foreground ,c116)))) `(trailing-whitespace ((t (:background ,c105)))) `(warning ((t (:foreground ,c107)))) ;; Font Lock Faces `(font-lock-builtin-face ((t (:foreground ,c101)))) `(font-lock-comment-delimiter-face ((t (:foreground ,c074)))) `(font-lock-comment-face ((t (:foreground ,c074)))) `(font-lock-constant-face ((t (:foreground ,c105)))) `(font-lock-doc-face ((t (:foreground ,c070)))) `(font-lock-function-name-face ((t (:foreground ,c089)))) `(font-lock-keyword-face ((t (:foreground ,c104)))) `(font-lock-negation-char-face ((t nil))) `(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face))))) `(font-lock-regexp-grouping-backslash ((t :foreground ,c056))) `(font-lock-regexp-grouping-construct ((t :foreground ,c056))) `(font-lock-string-face ((t (:foreground ,c087)))) `(font-lock-type-face ((t (:foreground ,c115)))) `(font-lock-variable-name-face ((t (:foreground ,c090)))) `(font-lock-warning-face ((t (:foreground ,c107)))) ;; Highlighted Line Face `(hl-line ((t (:background ,c025)))) ;; Matching / I-search Faces `(isearch-fail ((t (:foreground ,c068)))) `(query-replace ((t (:inherit (isearch))))) ;; Flyspell Mode Faces `(flyspell-incorrect ((t (:underline (:color ,c051 :style wave))))) `(flyspell-duplicate ((t (:inherit (flyspell-incorrect))))) ;; Flycheck Faces `(flycheck-error ((t (:underline (:color ,c051 :style wave))))) `(flycheck-error-list-error ((t (:foreground ,c051)))) `(flycheck-fringe-error ((t (:foreground ,c051)))) `(flycheck-warning ((t (:underline (:color ,c103 :style wave))))) `(flycheck-error-list-warning ((t (:foreground ,c103)))) `(flycheck-fringe-warning ((t (:foreground ,c103)))) `(flycheck-info ((t (:underline (:color ,c108 :style wave))))) `(flycheck-error-list-info ((t (:foreground ,c108)))) `(flycheck-fringe-info ((t (:foreground ,c108)))) `(flycheck-error-list-id ((t (:inherit (font-lock-constant-face))))) `(flycheck-error-list-checker-name ((t (:foreground ,c108)))) ;; Powerline Faces ;; TODO: Add Powerline theme `(powerline-active1 ((t (:background ,c054 :foreground ,c125)))) `(powerline-inactive1 ((t (:background ,c024 :foreground ,c048)))) `(mode-line-buffer-id-inactive ((t (:foreground ,c086)))) ;; Pp^l Highlight Face `(pp^L-highlight ((t (:box (:color ,c074))))) ;; Spar^L Mode Face `(spar^l-mode ((t (:foreground ,c053)))) ;; Magit Faces `(magit-section-highlight ((t (:inherit (region))))) `(magit-section-heading ((t (:foreground ,c094 :weight bold)))) `(magit-branch-remote ((t (:foreground ,c087)))) `(magit-branch-local ((t (:foreground ,c102)))) `(git-commit-summary ((t (:foreground ,c113)))) `(git-commit-overlong-summary ((t (:inherit (shadow))))) `(git-commit-nonempty-second-line ((t (:foreground ,c030)))) ;; SHR, EWW, etc. `(shr-link ((t (:foreground ,c108)))) ;; Mail, elfeed, etc. `(message-header-name ((t (:foreground ,c058)))) `(message-header-subject ((t (:foreground ,c125)))) `(message-header-to ((t (:foreground ,c079)))) `(message-header-other ((t (:foreground ,c059)))) ;; Elfeed `(elfeed-search-date-face ((t (:foreground ,c075)))) `(elfeed-search-title-face ((t (:foreground ,c076)))) `(elfeed-search-unread-title-face ((t (:foreground ,c124)))) `(elfeed-search-feed-face ((t (:foreground ,c114)))) `(elfeed-search-tag-face ((t (:foreground ,c087)))) `(elfeed-search-last-update-face ((t (:foreground ,c094)))) `(elfeed-search-unread-count-face ((t (:foreground ,c092)))) `(elfeed-search-filter-face ((t (:foreground ,c100)))) ;; Ace Window faces `(aw-leading-char-face ((t (:foreground ,c106)))) ;; Company faces `(company-tooltip ((t (:background ,c029 :foreground ,c104)))) `(company-tooltip-selection ((t (:background ,c041)))) `(company-tooltip-common ((t (:foreground ,c062)))) `(company-scrollbar-bg ((t (:background ,c029)))) `(company-scrollbar-fg ((t (:background ,c060)))) )) ;;;###autoload (when load-file-name (add-to-list 'custom-theme-load-path (file-name-directory load-file-name))) (provide-theme 'fae-fire) (provide 'fae-fire-theme) ;;; fae-fire-theme.el ends here