custom-theme.el (2514B)
1 ;;; custom-theme.el --- My custom theme -*- lexical-binding: t; -*- 2 3 ;; Copyright (C) 2021 Jamie Beardslee 4 5 ;; Author: Jamie Beardslee <jdb@jamzattack.xyz> 6 ;; Version: 2021.11.10 7 ;; Keywords: theme 8 9 ;; This program is free software; you can redistribute it and/or modify 10 ;; it under the terms of the GNU General Public License as published by 11 ;; the Free Software Foundation, either version 3 of the License, or 12 ;; (at your option) any later version. 13 14 ;; This program is distributed in the hope that it will be useful, 15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; GNU General Public License for more details. 18 19 ;; You should have received a copy of the GNU General Public License 20 ;; along with this program. If not, see <https://www.gnu.org/licenses/>. 21 22 ;;; Commentary: 23 24 ;; This is a very simple theme, primarily just setting some faces that 25 ;; I have issues with. 26 27 ;;; Code: 28 29 (deftheme custom 30 "Not much but changing the background colour to off-white") 31 32 (let ((class '((class color) (min-colors 89))) 33 (foreground "#2b0000") 34 (background "#FFFFD0") 35 (background2 "lightgoldenrod") 36 (background3 "khaki1") 37 (modeline "plum1")) 38 (custom-theme-set-faces 39 'custom 40 ;; Text 41 `(default ((,class (:background ,background :foreground ,foreground :weight normal)))) 42 `(line-number-current-line ((,class (:inherit 'secondary-selection)))) 43 `(secondary-selection ((,class (:background ,background3 :extend t)))) 44 `(helm-source-header ((,class (:inherit 'bold)))) 45 `(font-lock-doc-face ((,class (:slant italic :inherit font-lock-string-face)))) 46 `(dired-async-mode-message ((,class (:foreground "darkred")))) 47 `(org-hide ((,class (:foreground ,background)))) 48 `(erc-current-nick-face ((,class (:foreground "OrangeRed2")))) 49 50 ;; Not really text 51 `(tooltip ((,class (:inherit 'default)))) 52 `(region ((,class (:background ,background2)))) 53 `(fringe ((,class (:inherit 'default)))) 54 `(mode-line ((,class (:background ,modeline)))) 55 `(tab-bar ((,class (:inherit mode-line-inactive)))) 56 `(tab-bar-tab ((,class (:inherit default)))) 57 `(tab-bar-tab-inactive ((,class (:inherit mode-line-inactive)))) 58 `(ruler-mode-default ((,class (:inherit header-line :box nil)))) 59 )) 60 61 ;;; Restart dimmer-mode if it is loaded and turned on, otherwise 62 ;;; there's some artefacting 63 (when (bound-and-true-p dimmer-mode) 64 (dimmer-mode -1) 65 (dimmer-mode)) 66 67 (provide-theme 'custom)