custom-theme.el (1469B)
1 (deftheme custom 2 "Not much but changing the background colour to off-white") 3 4 (let ((class '((class color) (min-colors 89))) 5 (foreground "#2b0000") 6 (background "#FFFFD0") 7 (background2 "lightgoldenrod") 8 (background3 "khaki1") 9 (modeline "sky blue")) 10 (custom-theme-set-faces 11 'custom 12 ;; Text 13 `(default ((,class (:background ,background :foreground ,foreground :weight normal)))) 14 `(line-number-current-line ((,class (:inherit 'secondary-selection)))) 15 `(secondary-selection ((,class (:background ,background3 :extend t)))) 16 `(helm-source-header ((,class (:inherit 'bold)))) 17 `(font-lock-doc-face ((,class (:slant italic :inherit font-lock-string-face)))) 18 `(dired-async-mode-message ((,class (:foreground "darkred")))) 19 `(org-hide ((,class (:foreground ,background)))) 20 `(erc-current-nick-face ((,class (:foreground "OrangeRed2")))) 21 22 ;; Not really text 23 `(tooltip ((,class (:inherit 'default)))) 24 `(region ((,class (:background ,background2)))) 25 `(fringe ((,class (:inherit 'default)))) 26 `(mode-line ((,class (:background ,modeline)))) 27 `(tab-bar ((,class (:inherit mode-line-inactive)))) 28 `(tab-bar-tab ((,class (:inherit default :height 80)))) 29 `(tab-bar-tab-inactive ((,class (:inherit mode-line-inactive)))) 30 `(ruler-mode-default ((,class (:inherit header-line :box nil)))) 31 )) 32 33 (when (and (fboundp 'dimmer-mode) 34 dimmer-mode) 35 (dimmer-mode -1) 36 (dimmer-mode)) 37 38 (provide-theme 'custom)