23 lines
779 B
EmacsLisp
23 lines
779 B
EmacsLisp
;; Color theme
|
|
;; disable background in terminal
|
|
(defun on-after-init ()
|
|
(unless (display-graphic-p (selected-frame))
|
|
(set-face-background 'default "unspecified-bg" (selected-frame))))
|
|
|
|
(add-hook 'window-setup-hook 'on-after-init)
|
|
(defun on-frame-open (frame)
|
|
(if (not (display-graphic-p frame))
|
|
(set-face-background 'default "unspecified-bg" frame)))
|
|
(on-frame-open (selected-frame))
|
|
(add-hook 'after-make-frame-functions 'on-frame-open)
|
|
|
|
(when (boundp 'enable-color-theme)
|
|
;; load solarized color theme
|
|
(use-package solarized-theme
|
|
:config
|
|
(setq solarized-use-variable-pitch nil)
|
|
(setq solarized-scale-org-headlines nil)
|
|
(setq solarized-high-contrast-mode-line t)
|
|
(set-face-inverse-video 'region nil)
|
|
(load-theme 'solarized-light t)))
|