Bundle stekene-light theme

stekene-dark and stekene-light were removed from MELPA in
0765af97 (Drop unmaintained themes (#4369), 2016-10-30), and the
corresponding GitHub repo no longer exists.

1 files changed, 141 insertions, 0 deletions

diff --git a/lisp/stekene-theme-common.el b/lisp/stekene-theme-common.el
new file mode 100644
index 0000000..109ce45
--- /dev/null
+++ b/lisp/stekene-theme-common.el
@@ -0,0 +1,141 @@
+;;; stekene-theme-common.el --- Common stuff for the stekene themes -*- lexical-binding: t -*-
+
+;; Author: Fanael Linithien <fanael4@gmail.com>
+;; URL: https://github.com/Fanael/stekene-theme
+
+;; This file is NOT part of GNU Emacs.
+
+;; Copyright (c) 2014, Fanael Linithien
+;; All rights reserved.
+;;
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions are
+;; met:
+;;
+;;   * Redistributions of source code must retain the above copyright
+;;     notice, this list of conditions and the following disclaimer.
+;;   * Redistributions in binary form must reproduce the above copyright
+;;     notice, this list of conditions and the following disclaimer in the
+;;     documentation and/or other materials provided with the distribution.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+;;; Code:
+
+(defmacro stekene-theme--set-faces (name palette)
+  `(let ,(cons '(class '((class color) (min-colors 89))) palette)
+     (custom-theme-set-faces
+      ',name
+      `(default ((,class (:background ,background :foreground ,foreground))))
+      `(cursor ((,class (:background ,foreground))))
+      `(region ((,class (:background ,region))))
+      `(highlight ((,class (:background ,highlight))))
+      `(font-lock-builtin-face ((,class (:foreground ,blue3))))
+      `(font-lock-preprocessor-face ((,class (:foreground ,dullred))))
+      `(font-lock-comment-face ((,class (:foreground ,gray1))))
+      `(font-lock-constant-face ((,class (:foreground ,dullyellow))))
+      `(font-lock-function-name-face ((,class (:foreground ,blue1))))
+      `(font-lock-keyword-face ((,class (:foreground ,gray2))))
+      `(font-lock-string-face ((,class (:foreground ,red))))
+      `(font-lock-regexp-grouping-backslash ((,class (:foreground ,orange2))))
+      `(font-lock-regexp-grouping-construct ((,class (:foreground ,yellow2))))
+      `(font-lock-doc-face ((,class (:foreground ,orange1))))
+      `(font-lock-type-face ((,class (:foreground ,dullgreen))))
+      `(font-lock-variable-name-face ((,class (:foreground ,blue2))))
+      `(font-lock-negation-char-face ((,class (:foreground ,orange2))))
+
+      `(hl-line ((,class (:background ,hlline))))
+      `(show-paren-match-face ((,class (:background ,region))))
+
+      `(whitespace-line ((,class (:background ,whitespaceline :foreground nil))))
+      `(whitespace-trailing ((,class (:background ,whitespacetrailing :foreground nil))))
+
+      `(fringe ((,class (:background ,fringebg))))
+      `(linum ((,class (:background ,background :foreground ,gray1))))
+
+      `(mode-line ((,class
+                    (:background ,modelinebg :foreground ,foreground :box nil))))
+
+      `(minibuffer-prompt ((,class (:foreground ,orange1))))
+
+      `(ido-subdir ((,class (:foreground ,yellow1))))
+      `(ido-only-match ((,class (:foreground ,blue2))))
+
+      `(evil-ex-info ((,class (:foreground ,red :weight bold))))
+      `(evil-ex-substitute-replacement ((,class
+                                         (:foreground ,red :weight bold :underline t))))
+
+      `(highlight-quoted-quote ((,class (:foreground ,orange2))))
+      `(highlight-quoted-symbol ((,class (:foreground ,dullyellow))))
+
+      `(helm-source-header ((,class (:background ,modelinebg :foreground ,blue2))))
+      `(helm-selection ((,class (:background ,helmselection))))
+      `(helm-prefarg ((,class (:foreground ,dullred))))
+      `(helm-match ((,class (:foreground ,blue2))))
+      `(helm-M-x-key ((,class (:foreground ,blue1))))
+      `(helm-ff-file ((,class (:foreground ,foreground))))
+      `(helm-ff-directory ((,class (:foreground ,blue1))))
+      `(helm-ff-executable ((,class (:foreground ,dullgreen))))
+      `(helm-ff-symlink ((,class (:foreground ,dullyellow))))
+      `(helm-ff-invalid-symlink ((,class (:foreground ,red))))
+      `(helm-history-deleted ((,class (:foreground ,red))))
+      `(helm-history-remote ((,class (:foreground ,blue1))))
+      `(helm-lisp-show-completion ((,class (:background ,highlight))))
+
+      `(rainbow-identifiers-identifier-1 ((,class (:foreground ,symbol1))))
+      `(rainbow-identifiers-identifier-2 ((,class (:foreground ,symbol2))))
+      `(rainbow-identifiers-identifier-3 ((,class (:foreground ,symbol3))))
+      `(rainbow-identifiers-identifier-4 ((,class (:foreground ,symbol4))))
+      `(rainbow-identifiers-identifier-5 ((,class (:foreground ,symbol5))))
+      `(rainbow-identifiers-identifier-6 ((,class (:foreground ,symbol6))))
+      `(rainbow-identifiers-identifier-7 ((,class (:foreground ,symbol7))))
+      `(rainbow-identifiers-identifier-8 ((,class (:foreground ,symbol8))))
+      `(rainbow-identifiers-identifier-9 ((,class (:foreground ,symbol9))))
+      `(rainbow-identifiers-identifier-10 ((,class (:foreground ,symbol10))))
+      `(rainbow-identifiers-identifier-11 ((,class (:foreground ,symbol11))))
+      `(rainbow-identifiers-identifier-12 ((,class (:foreground ,symbol12))))
+      `(rainbow-identifiers-identifier-13 ((,class (:foreground ,symbol13))))
+      `(rainbow-identifiers-identifier-14 ((,class (:foreground ,symbol14))))
+      `(rainbow-identifiers-identifier-15 ((,class (:foreground ,symbol15))))
+
+      `(rainbow-delimiters-depth-1-face ((,class (:foreground ,delim1))))
+      `(rainbow-delimiters-depth-2-face ((,class (:foreground ,delim2))))
+      `(rainbow-delimiters-depth-3-face ((,class (:foreground ,delim3))))
+      `(rainbow-delimiters-depth-4-face ((,class (:foreground ,delim4))))
+      `(rainbow-delimiters-depth-5-face ((,class (:foreground ,delim5))))
+      `(rainbow-delimiters-depth-6-face ((,class (:foreground ,delim6))))
+      `(rainbow-delimiters-depth-7-face ((,class (:foreground ,delim7))))
+      `(rainbow-delimiters-depth-8-face ((,class (:foreground ,delim8))))
+      `(rainbow-delimiters-depth-9-face ((,class (:foreground ,delim9))))
+
+      `(highlight-blocks-depth-1-face ((,class (:background ,block1))))
+      `(highlight-blocks-depth-2-face ((,class (:background ,block2))))
+      `(highlight-blocks-depth-3-face ((,class (:background ,block3))))
+      `(highlight-blocks-depth-4-face ((,class (:background ,block4))))
+      `(highlight-blocks-depth-5-face ((,class (:background ,block5))))
+      `(highlight-blocks-depth-6-face ((,class (:background ,block6))))
+      `(highlight-blocks-depth-7-face ((,class (:background ,block7))))
+      `(highlight-blocks-depth-8-face ((,class (:background ,block8))))
+      `(highlight-blocks-depth-9-face ((,class (:background ,block9)))))
+     (custom-theme-set-variables
+      ',name
+      `(rainbow-identifiers-cie-l*a*b*-lightness ,identifierlightness)
+      `(rainbow-identifiers-cie-l*a*b*-saturation ,identifiersaturation))))
+
+;;;###autoload
+(when load-file-name
+  (add-to-list 'custom-theme-load-path
+               (file-name-as-directory (file-name-directory load-file-name))))
+
+(provide 'stekene-theme-common)
+;;; stekene-theme-common.el ends here