From: Amin Bandali Date: Sun, 27 Sep 2020 16:08:01 +0000 (-0400) Subject: Initial check-in of a dark variant for Refinery X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/refinery-theme/commitdiff_plain/refs/heads/main?ds=sidebyside Initial check-in of a dark variant for Refinery --- diff --git a/refinery-dark-theme.el b/refinery-dark-theme.el new file mode 100644 index 0000000..0dd5366 --- /dev/null +++ b/refinery-dark-theme.el @@ -0,0 +1,159 @@ +;;; refinery-dark-theme.el --- refined, minimalist, layered dark theme -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Amin Bandali + +;; Author: Amin Bandali +;; Version: 0.1.1 +;; Keywords: faces + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; This is the dark variant of the Refinery theme. Please see +;; `refinery.el' for the commentary. + +;;; Code: + +(deftheme refinery-dark + "A minimalist high-contrast dark theme for GNU Emacs. +Includes themed faces for modes/packages like Isearch, Gnus, +Message, EBDB, and Ivy.") + +(let* (;; supported classes of terminals + (class '((class color) (min-colors 16))) + + ;; colors + (black "#000000") + (white "#ffffff") + (yellow "#ffffdf") + (yellow+1 "#dfdfaf") + (yellow+2 "#fce94f") + (grey "#e7e7e7") + (grey-0 "#222222") + (grey-1 "#666666") + (grey-2 "#888888") + (grey-3 "#bbbbbb") + (blue "#204a87") + (red "#ff4b4b") ; #d70000 ; #a40000 + (orange "#ce5c00") + (green "#4e9a06") + + ;; layers + (layer-2 `((,class (:foreground ,grey-2)))) + (layer-1 `((,class (:foreground ,grey-1)))) + (layer0 `((,class (:foreground ,grey-3 :background ,grey-0)))) + (layer0-inv `((,class (:background ,white)))) + (layer+1 `((,class (:foreground ,yellow :background ,black)))) + (layer+2 `((,class (:foreground ,grey-3 :weight bold)))) + (layer+3 `((,class (:foreground ,red)))) + (layer+3b `((,class (:foreground ,red :weight bold)))) + (layer+4 `((,class (:foreground ,red :background ,grey)))) + (layer+4-inv `((,class (:foreground ,grey :background ,red)))) + (layer+4b `((,class (:foreground ,red :background ,grey :weight bold)))) + (layer+4b-inv `((,class (:foreground ,grey :background ,red :weight bold)))) + + ;; box + (box `(:line-width -1 :style released-button))) + + (custom-theme-set-faces + 'refinery-dark + + `(default ,layer0) + `(cursor ,layer0-inv) + + ;; Highlighting + `(linum ((,class (:background ,grey)))) + `(fringe ((,class (:background ,black)))) + `(highlight ((,class (:background ,yellow+2)))) + `(hl-line ((,class (:background ,yellow+1)))) + `(region ((,class (:background ,yellow+1)))) + `(secondary-selection ((,class (:background ,yellow+2)))) + `(isearch ((,class (:foreground ,white :background ,grey-1)))) + `(lazy-highlight ((,class (:background ,grey)))) + `(trailing-whitespace ,layer+4b-inv) + `(whitespace-trailing ,layer+4b-inv) + + ;; Parens + `(show-paren-match ,layer+4b) + `(show-paren-mismatch ,layer+4b-inv) + + ;; Comments and documentation + `(font-lock-comment-face ,layer+3) + `(font-lock-doc-face ,layer+3) + + ;; Function definitions + `(font-lock-function-name-face ,layer+2) + + ;; String literals + `(font-lock-string-face ,layer+1) + + ;; Constants, variables, and their types + `(font-lock-constant-face ,layer0) + `(font-lock-variable-name-face ,layer0) + `(font-lock-type-face ,layer0) + + ;; Built-ins and keywords + `(font-lock-builtin-face ,layer-1) + `(font-lock-keyword-face ,layer-2) + + ;; Mode line and minibuffer prompt + `(mode-line ((,class (:background ,grey :box ,box)))) + `(mode-line-inactive ((,class (:background "#e1e1e1" :box ,box)))) + `(minibuffer-prompt ,layer+2) + + ;; Characters displayed as sequences using `^' or `\' + `(escape-glyph ,layer+3) + + ;; Gnus, Message, and EBDB + `(gnus-group-mail-3 ,layer+2) + `(gnus-group-mail-3-empty ,layer-1) + `(gnus-summary-normal-ticked ,layer+3) + `(gnus-header-from ,layer+3b) + `(gnus-header-subject ,layer+3) + `(gnus-header-name ,layer-2) + `(gnus-header-content ,layer0) + `(message-header-to ,layer+3b) + `(message-header-cc ,layer0) + `(message-header-subject ,layer0) + `(message-header-other ,layer-2) + `(message-header-name ,layer-2) + `(message-header-xheader ((,class (:foreground ,blue)))) + `(ebdb-person-name ,layer+3b) + + ;; Ivy and family + `(ivy-minibuffer-match-face-1 ((,class (:background "#eeeeee")))) + `(ivy-minibuffer-match-face-2 ((,class (:background ,grey :weight bold)))) + `(ivy-minibuffer-match-face-3 ((,class (:background "light goldenrod" :weight semi-bold)))) + `(ivy-minibuffer-match-face-4 ((,class (:background "misty rose" :weight semi-bold)))) + `(ivy-current-match ((((class color) (background light)) + :background "#d7d7d7" :foreground ,black) + (((class color) (background dark)) + :background "#65a7e2" :foreground ,black))) + + ;; Error/failure, warning, and success + `(error ,layer+3b) + `(warning ((,class (:foreground ,orange)))) + `(success ((,class (:foreground ,green))))) + + (custom-theme-set-variables 'refinery-dark)) + +;;;###autoload +(when (and (boundp 'custom-theme-load-path) load-file-name) + (add-to-list 'custom-theme-load-path + (file-name-as-directory + (file-name-directory load-file-name)))) + +(provide-theme 'refinery-dark) +;;; refinery-theme.el ends here