Files
.emacs.d/my-themes.el
2017-06-07 23:35:58 +02:00

53 lines
1.7 KiB
EmacsLisp

(defvar my:theme 'base16-onedark)
(defvar my:theme-window-loaded nil)
(defvar my:theme-terminal-loaded nil)
(defun setcolors ()
(load-theme my:theme t)
(custom-theme-set-faces
my:theme
'(linum ((t (:underline nil :background "#333842" :foreground "#a2a3b4"
:weight bold))))
'(mode-line ((t (:background "#282c34" :foreground "#b8b8b8" :box nil
:family "Iosevka Term" :height 100))))
'(mode-line-buffer-id ((t (:foreground "#a1b56c" :family "Iosevka Term"
:height 100))))
'(mode-line-highlight ((t (:foreground "#ba8baf" :box nil :weight bold
:family "Iosevka Term"
:height 100))))
'(mode-line-inactive ((t (:background "#282c34" :foreground "#585858"
:box nil :underline nil
:family "Iosevka Term" :height 100)))))
)
(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 0)
(unless my:theme-window-loaded
(if my:theme-terminal-loaded
(enable-theme my:theme)
(setcolors))
(setq my:theme-window-loaded t))
(unless my:theme-terminal-loaded
(if my:theme-window-loaded
(enable-theme my:theme)
(setcolors))
(setq my:theme-terminal-loaded t)))))
(progn
(setcolors)
(if (display-graphic-p)
(setq my:theme-window-loaded t)
(setq my:theme-terminal-loaded t)))
(set-frame-parameter (selected-frame) 'internal-border-width 0))
(add-hook 'before-make-frame-hook
#'(lambda ()
(add-to-list 'default-frame-alist '(height . 42))
(add-to-list 'default-frame-alist '(width . 100))))