From 630a82c2f5c242c81671c823e7e88a95f232c7ab Mon Sep 17 00:00:00 2001 From: Guangxiong Lin Date: Sun, 20 Mar 2022 12:29:13 +0800 Subject: Update theme on emacs --- .emacs.d/lisp/init-appearance.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/.emacs.d/lisp/init-appearance.el b/.emacs.d/lisp/init-appearance.el index 50b14e7..ffd641f 100644 --- a/.emacs.d/lisp/init-appearance.el +++ b/.emacs.d/lisp/init-appearance.el @@ -6,18 +6,23 @@ (custom-set-variables '(initial-frame-alist '((fullscreen . maximized))))) +(defun gx/set-appearance-for-frame (frame) + (select-frame frame) + (gx/set-appearance)) + (defun gx/set-appearance () (when (display-graphic-p) (when *is-a-linux* (gx/set-appearance--linux)) (when *is-a-mac* - (gx/set-appearance--mac)))) + (gx/set-appearance--mac))) + (when (gx/maybe-require-package 'color-theme-sanityinc-tomorrow) + (color-theme-sanityinc-tomorrow-eighties))) + -(add-hook 'after-init-hook - (lambda () - (gx/set-appearance))) +(add-to-list 'after-make-frame-functions #'gx/set-appearance-for-frame) +(add-hook 'after-init-hook #'gx/set-appearance) -(when (gx/maybe-require-package 'atom-one-dark-theme) - (load-theme 'atom-one-dark t)) +(setq custom-safe-themes t) (provide 'init-appearance) -- cgit v1.2.3