gas-plasma-theme.el

;; after https://www.emacswiki.org/emacs/SmartOrangeTheme
;; then https://www.reddit.com/r/retrobattlestations/comments/elwuk9/ibm_ps2_p70_this_is_one_of_my_favorite_1980s/

(deftheme gas-plasma "IBM PS/2 P70 Gas Plasma")

(custom-theme-set-faces
 'gas-plasma
 '(default ((t (:foreground "#ea7d30" :background "#170e0d"))))
 '(cursor ((t (:background "#f2b74d"))))
 '(highlight ((t (:inverse-video t))))
 '(isearch ((t (:foreground "#ddad42" :inverse-video t))))
 '(lazy-highlight ((t (:foreground "#e58832" :inverse-video t))))
 '(hl-line ((t (:background "#2f1a11"))))
 '(link ((t (:foreground "#eeaf3f"))))
 '(region ((t (:background "#0000ee"))))
 
 '(mode-line ((t (:foreground "black" :background "#e58832"))))
 '(mode-line-inactive ((t (:foreground "black" :background "#7e451b"))))
 
 '(font-lock-builtin-face ((t (:weight bold))))
 '(font-lock-comment-delimiter-face ((t (:foreground "#437020" :weight bold :slant italic))))
 '(font-lock-comment-face ((t (:foreground "#7cd545" :slant italic))))
 '(font-loc-doc-face ((t (:foreground "#65a933" :slant italic))))

 '(font-lock-constant-face ((t (:foreground "#eb8d36"))))
 '(font-lock-function-name-face ((t (:foreground "#e4a242"))))
 '(font-lock-keyword-face ((t (:foreground "#ddad42" :weight regular))))
 '(font-lock-string-face ((t (:foreground "#e69a45"))))
 '(font-lock-type-face ((t (:foreground "#e4a242" :slant italic))))
 '(font-lock-variable-name-face ((t (:foreground "#e4a242"))))

 '(font-lock-negation-char-face ((t (:foreground "#822f12" :weight bold))))
 '(font-lock-preprocessor-face ((t (:foreground "#ddad42" :weight bold))))
 '(font-lock-warning-face ((t (:foreground "#ffffff" :background "#990000"))))

 '(lsp-lsp-flycheck-info-unnecessary-face ((t (:foreground "#844b20"))))
 '(lsp-lsp-flycheck-warning-unnecessary-face ((t (:foreground "#844b20"))))

 '(show-paren-match ((t (:foreground "#d3cfc1"))))
 '(show-paren-mismatch ((t (:foreground "#f92672"))))

 '(eshell-prompt ((t :foreground "#e4a242")))
 '(comint-highlight-prompt ((t :foreground "#e4a242" :weight bold)))
 '(minibuffer-prompt ((t :foreground "#e4a242")))

 '(rainbow-delimiters-depth-1-face ((t :foreground "RedOrange" :weight bold)))
 '(rainbow-delimiters-depth-2-face ((t :foreground "Orange")))
 '(rainbow-delimiters-depth-3-face ((t :foreground "Yellow")))
 '(rainbow-delimiters-depth-4-face ((t :foreground "Green")))
 '(rainbow-delimiters-depth-5-face ((t :foreground "Blue")))
 '(rainbow-delimiters-depth-6-face ((t :foreground "Purple")))
 '(rainbow-delimiters-depth-7-face ((t :foreground "Grey"))))

(provide-theme 'gas-plasma)

;; (load-theme 'gas-plasma t)
;; M-x list-faces-display