--- /dev/null
+;;; 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")q
+ (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 ,c001 :foreground ,c127))))
+ `(error ((t (:foreground ,c051))))
+ `(escape-glyph ((t (:foreground ,c095))))
+ `(fringe ((t (:background "#000"))))
+ `(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 ,c058 :foreground ,c000))))
+ `(mode-line-buffer-id ((t (:weight bold :foreground ,c117))))
+ `(mode-line-emphasis ((t (:weight bold))))
+ `(mode-line-highlight ((t (:foreground ,c126))))
+ `(mode-line-inactive ((t (:background ,c041 :inherit mode-line))))
+ `(nobreak-space ((t (:foreground ,c074 :underline t))))
+ `(region ((t (:background ,c012))))
+ `(secondary-selection ((t (:inherit (region)))))
+ `(shadow ((t (:foreground ,c055))))
+ `(success ((t (:foreground ,c116))))
+ `(trailing-whitespace ((t (:background ,c105))))
+ ;; `(tty-menu-enabled-face ((t (:foreground ,clr04 :background ,clr16))))
+ ;; `(tty-menu-selected-face ((t (:foreground ,clr04 :background ,clr15))))
+ ;; `(tty-menu-disabled-face ((t (:foreground ,clr08 :background ,clr16))))
+ `(warning ((t (:foreground ,c103))))
+
+ ;; Font Lock Faces
+ `(font-lock-builtin-face ((t (:foreground ,c104))))
+ `(font-lock-comment-delimiter-face ((t (:foreground ,c094))))
+ `(font-lock-comment-face ((t (:foreground ,c074))))
+ `(font-lock-constant-face ((t (:foreground ,c116))))
+ `(font-lock-doc-face ((t (:foreground ,c084))))
+ `(font-lock-function-name-face ((t (:foreground ,c091))))
+ `(font-lock-keyword-face ((t (:foreground ,c088))))
+ `(font-lock-negation-char-face ((t nil)))
+ `(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
+ `(font-lock-regexp-grouping-backslash ((t :foreground ,c066)))
+ `(font-lock-regexp-grouping-construct ((t :foreground ,c066)))
+ `(font-lock-string-face ((t (:foreground ,c087))))
+ `(font-lock-type-face ((t (:foreground ,c089))))
+ `(font-lock-variable-name-face ((t (:foreground ,c105))))
+ `(font-lock-warning-face ((t (:foreground ,c103))))
+
+ ;; Highlighted Line Face
+ `(hl-line ((t (:background ,c016))))
+
+ ;; 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 ,c041))))
+ `(powerline-inactive1 ((t (:background ,c041 :foreground ,c041))))
+ `(mode-line-buffer-id-inactive ((t (:foreground ,c094))))
+
+ ;; 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)))))
+ `(git-commit-summary ((t (:foreground ,c110))))
+ `(git-commit-overlong-summary ((t (:inherit (shadow)))))
+ `(git-commit-nonempty-second-line ((t (:inherit (shadow)))))
+
+ ;; 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))))
+
+ ))
+
+;;;###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
projects / fae-fire-theme.git / commitdiff