fae-fire-theme.el

   1 ;;; fae-fire-theme.el --- “Ghost lights through a fog” -*- lexical-binding: t; -*-
   2 ;;
   3 ;; Author: Joe Wreschnig
   4 ;; Package-Version: 20170806
   5 ;; Package-Requires: ((emacs "24"))
   6 ;; Keywords: faces
   7 ;; URL: https://git.korewanetadesu.com/fae-fire-theme.git
   8 ;;
   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
  13 ;; by any means.
  14
  15
  16 ;;; Commentary:
  17 ;;
  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/’.
  21
  22
  23 ;;; Code:
  24
  25 (deftheme fae-fire "“Ghost lights through a fog”
  26
  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/’.")
  30
  31 (let ((c000 "#0b1318")
  32       (c001 "#141116")
  33       (c002 "#0d1721")
  34       (c003 "#121a1f")
  35       (c004 "#261715")
  36       (c005 "#111e28")
  37       (c006 "#1e1b20")
  38       (c007 "#241a1b")
  39       (c008 "#161d2c")
  40       (c009 "#321913")
  41       (c010 "#162025")
  42       (c011 "#1a272f")
  43       (c012 "#312424")
  44       (c013 "#2d252b")
  45       (c014 "#25272f")
  46       (c015 "#26282a")
  47       (c016 "#2a2826")
  48       (c017 "#192b3b")
  49       (c018 "#162d31")
  50       (c019 "#202e36")
  51       (c020 "#3f2729")
  52       (c021 "#472a24")
  53       (c022 "#592521")
  54       (c023 "#343224")
  55       (c024 "#1a3554")
  56       (c025 "#22384a")
  57       (c026 "#213a3e")
  58       (c027 "#2d373e")
  59       (c028 "#3f3335")
  60       (c029 "#393634")
  61       (c030 "#842823")
  62       (c031 "#7a332d")
  63       (c032 "#304656")
  64       (c033 "#32474b")
  65       (c034 "#274866")
  66       (c035 "#294a57")
  67       (c036 "#6c3c35")
  68       (c037 "#454553")
  69       (c038 "#514444")
  70       (c039 "#22544d")
  71       (c040 "#424c49")
  72       (c041 "#60463c")
  73       (c042 "#4c5040")
  74       (c043 "#2b567b")
  75       (c044 "#335767")
  76       (c045 "#315771")
  77       (c046 "#41555a")
  78       (c047 "#285c62")
  79       (c048 "#386580")
  80       (c049 "#376874")
  81       (c050 "#4a6573")
  82       (c051 "#af4d3f")
  83       (c052 "#9e5245")
  84       (c053 "#287268")
  85       (c054 "#366a97")
  86       (c055 "#6c6161")
  87       (c056 "#297472")
  88       (c057 "#8f5b4e")
  89       (c058 "#836155")
  90       (c059 "#626a64")
  91       (c060 "#77675a")
  92       (c061 "#4e726b")
  93       (c062 "#3c7792")
  94       (c063 "#66705d")
  95       (c064 "#427982")
  96       (c065 "#548989")
  97       (c066 "#438e8b")
  98       (c067 "#5586a8")
  99       (c068 "#c26d5f")
 100       (c069 "#488ca0")
 101       (c070 "#ba7261")
 102       (c071 "#608a7d")
 103       (c072 "#c67459")
 104       (c073 "#ad7c6c")
 105       (c074 "#8f838a")
 106       (c075 "#798e8e")
 107       (c076 "#838d7e")
 108       (c077 "#a08676")
 109       (c078 "#519d99")
 110       (c079 "#958d7d")
 111       (c080 "#e7795e")
 112       (c081 "#659a9a")
 113       (c082 "#719a8c")
 114       (c083 "#f5834d")
 115       (c084 "#60acbb")
 116       (c085 "#7baaa3")
 117       (c086 "#8ea9b0")
 118       (c087 "#7cabd5")
 119       (c088 "#64b7ad")
 120       (c089 "#f29757")
 121       (c090 "#d59b87")
 122       (c091 "#ee9671")
 123       (c092 "#c1a28b")
 124       (c093 "#aea5af")
 125       (c094 "#baa496")
 126       (c095 "#b0a797")
 127       (c096 "#9eac9e")
 128       (c097 "#91b19e")
 129       (c098 "#f09b64")
 130       (c099 "#a9ae92")
 131       (c100 "#e6a077")
 132       (c101 "#8bbab1")
 133       (c102 "#faad82")
 134       (c103 "#f5b56f")
 135       (c104 "#6fd4c9")
 136       (c105 "#f5b4a0")
 137       (c106 "#f6ba80")
 138       (c107 "#f7bc92")
 139       (c108 "#9cd5c5")
 140       (c109 "#ddc5b5")
 141       (c110 "#afd1d2")
 142       (c111 "#bad0be")
 143       (c112 "#ccccbc")
 144       (c113 "#c9cfaf")
 145       (c114 "#d8cac6")
 146       (c115 "#eec7ab")
 147       (c116 "#d3d4a5")
 148       (c117 "#f5cea1")
 149       (c118 "#fbe1c5")
 150       (c119 "#c1f6e4")
 151       (c120 "#e2eedb")
 152       (c121 "#f2f0be")
 153       (c122 "#d3f6e7")
 154       (c123 "#f9ebe5")
 155       (c124 "#ecf3d1")
 156       (c125 "#d5f8f5")
 157       (c126 "#f9f5d7")
 158       (c127 "#f4f5e7")
 159       )
 160
 161   (custom-theme-set-faces
 162    'fae-fire
 163
 164    ;; Basic 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))))
 192
 193    ;; Font Lock Faces
 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))))
 209
 210    ;; Highlighted Line Face
 211    `(hl-line ((t (:background ,c025))))
 212
 213    ;; Matching / I-search Faces
 214    `(isearch-fail ((t (:foreground ,c068))))
 215    `(query-replace ((t (:inherit (isearch)))))
 216
 217    ;; Flyspell Mode Faces
 218    `(flyspell-incorrect ((t (:underline (:color ,c051 :style wave)))))
 219    `(flyspell-duplicate ((t (:inherit (flyspell-incorrect)))))
 220
 221    ;; Flycheck Faces
 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))))
 233
 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))))
 238
 239    ;; Pp^l Highlight Face
 240    `(pp^L-highlight ((t (:box (:color ,c074)))))
 241
 242    ;; Spar^L Mode Face
 243    `(spar^l-mode ((t (:foreground ,c053))))
 244
 245    ;; Magit Faces
 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))))
 253
 254    ;; SHR, EWW, etc.
 255    `(shr-link ((t (:foreground ,c108))))
 256
 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))))
 262
 263    ;; Elfeed
 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))))
 272
 273    ;; Ace Window faces
 274    `(aw-leading-char-face ((t (:foreground ,c106))))
 275
 276    ;; Company faces
 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))))
 282
 283    ))
 284
 285 ;;;###autoload
 286 (when load-file-name
 287   (add-to-list 'custom-theme-load-path
 288                (file-name-directory load-file-name)))
 289
 290 (provide-theme 'fae-fire)
 291 (provide 'fae-fire-theme)
 292
 293
 294 ;;; fae-fire-theme.el ends here