compile on daemon start/terminal theme
This commit is contained in:
51
my-themes.el
Normal file
51
my-themes.el
Normal file
@@ -0,0 +1,51 @@
|
||||
(defvar my:theme 'gruvbox)
|
||||
(defvar my:theme-window-loaded nil)
|
||||
(defvar my:theme-terminal-loaded nil)
|
||||
(if (daemonp)
|
||||
(add-hook
|
||||
'after-make-frame-functions
|
||||
(lambda (frame)
|
||||
(select-frame frame)
|
||||
(when (window-system frame)
|
||||
(set-frame-parameter
|
||||
(selected-frame) 'internal-border-width 10)
|
||||
(unless my:theme-window-loaded
|
||||
(if my:theme-terminal-loaded
|
||||
(enable-theme my:theme)
|
||||
(load-theme my:theme t))
|
||||
(setq my:theme-window-loaded t))
|
||||
(unless my:theme-terminal-loaded
|
||||
(if my:theme-window-loaded
|
||||
(enable-theme my:theme)
|
||||
(load-theme my:theme t))
|
||||
(setq my:theme-terminal-loaded t)))))
|
||||
(progn
|
||||
(load-theme my:theme t)
|
||||
(if (display-graphic-p)
|
||||
(setq my:theme-window-loaded t)
|
||||
(setq my:theme-terminal-loaded t)))
|
||||
(set-frame-parameter (selected-frame) 'internal-border-width 10))
|
||||
|
||||
(custom-set-faces
|
||||
;; term
|
||||
'(term-color-black
|
||||
((t (:foreground "#525252"))))
|
||||
'(term-color-red
|
||||
((t (:foreground "#ff4936"))))
|
||||
'(term-color-green
|
||||
((t (:foreground "#bb3627"))))
|
||||
'(term-color-yellow
|
||||
((t (:foreground "#86261c"))))
|
||||
'(term-color-blue
|
||||
((t (:foreground "#0fd9ff"))))
|
||||
'(term-color-magenta
|
||||
((t (:foreground "#0ba2be"))))
|
||||
'(term-color-cyan
|
||||
((t (:foreground "#076678"))))
|
||||
'(term-color-white
|
||||
((t (:foreground "#bfbfbf")))))
|
||||
|
||||
(add-hook 'before-make-frame-hook
|
||||
#'(lambda ()
|
||||
(add-to-list 'default-frame-alist '(height . 42))
|
||||
(add-to-list 'default-frame-alist '(width . 84))))
|
||||
Reference in New Issue
Block a user