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

change light and dark theme, simplify selecting new themes

Browse Source
This commit is contained in:
Łukasz Pankowski 2017-11-12 14:53:17 +01:00
parent 13ccc32d13
commit c3dbe74787
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.el
View File

@ -197,20 +197,23 @@ Argument FRAMES has the same meaning as for `set-frame-font'"
(if (not (featurep 'powerline)) (if (not (featurep 'powerline))
(powerline-center-theme))) (powerline-center-theme)))
(setq my-dark-theme 'nimbus
my-light-theme 'leuven)
(defun my-light-theme () (defun my-light-theme ()
"Switch to sanityinc-tomorrow-day theme." "Switch to my light theme."
(interactive) (interactive)
(when (load-theme 'sanityinc-tomorrow-day) (when (load-theme my-light-theme)
(enable-theme 'sanityinc-tomorrow-day) (enable-theme my-light-theme)
(disable-theme 'sanityinc-tomorrow-night) (disable-theme my-dark-theme)
(powerline-reset))) (powerline-reset)))
(defun my-dark-theme () (defun my-dark-theme ()
"Switch to sanityinc-tomorrow-night dark theme." "Switch to my dark theme."
(interactive) (interactive)
(when (load-theme 'sanityinc-tomorrow-night) (when (load-theme my-dark-theme)
(enable-theme 'sanityinc-tomorrow-night) (enable-theme my-dark-theme)
(disable-theme 'sanityinc-tomorrow-day) (disable-theme my-light-theme)
(powerline-reset))) (powerline-reset)))
(when window-system (when window-system