From 4eb78076c7da84c9035b0996aa9295d6d3c62916 Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Tue, 22 May 2018 00:03:15 +0200 Subject: [PATCH 1/1] Initial import --- fae-fire-theme.el | 287 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 287 insertions(+) create mode 100644 fae-fire-theme.el diff --git a/fae-fire-theme.el b/fae-fire-theme.el new file mode 100644 index 0000000..45d965a --- /dev/null +++ b/fae-fire-theme.el @@ -0,0 +1,287 @@ +;;; 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 -- 2.20.1