emacs.d

My Emacs configuration
git clone https://git.jamzattack.xyz/emacs.d
Log | Files | Refs | LICENSE

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)