emacs.d

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

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)