lupan/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

switch default theme to sanityinc-tomorrow-day

Browse Source
This commit is contained in:
Łukasz Pankowski 2017-10-04 10:32:42 +02:00
parent 9d2675abfc
commit 13ccc32d13
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
init.el
View File

@ -189,26 +189,29 @@ Argument FRAMES has the same meaning as for `set-frame-font'"
:ensure nil :ensure nil
:defer) :defer)
(use-package color-theme-sanityinc-tomorrow
:ensure nil
:defer)
(defun my-make-frame-function(frame) (defun my-make-frame-function(frame)
(with-selected-frame frame ;; needed for spacemacs powerline colors to be applied properly (if (not (featurep 'powerline))
(when (not (featurep 'apropospriate-light-theme)) (powerline-center-theme)))
(load-theme 'apropospriate-light)
(when (require 'powerline nil t)
(powerline-center-theme)))))
(defun my-light-theme () (defun my-light-theme ()
"Switch to apropospriate-light theme." "Switch to sanityinc-tomorrow-day theme."
(interactive) (interactive)
(when (load-theme 'apropospriate-light) (when (load-theme 'sanityinc-tomorrow-day)
(enable-theme 'apropospriate-light) (enable-theme 'sanityinc-tomorrow-day)
(disable-theme 'sanityinc-tomorrow-night))) (disable-theme 'sanityinc-tomorrow-night)
(powerline-reset)))
(defun my-dark-theme () (defun my-dark-theme ()
"Switch to apropospriate-dark dark theme." "Switch to sanityinc-tomorrow-night dark theme."
(interactive) (interactive)
(when (load-theme 'sanityinc-tomorrow-night) (when (load-theme 'sanityinc-tomorrow-night)
(enable-theme 'sanityinc-tomorrow-night) (enable-theme 'sanityinc-tomorrow-night)
(disable-theme 'apropospriate-light))) (disable-theme 'sanityinc-tomorrow-day)
(powerline-reset)))
(when window-system (when window-system
(my-make-frame-function (selected-frame))) (my-make-frame-function (selected-frame)))