colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Only load theme once at startup

Browse Source
This commit is contained in:
Ivan Malison 2017-01-26 16:57:40 -08:00
parent bbd645dd04
commit 87f4f115fa
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dotfiles/emacs.d/README.org
View File

@ -4852,8 +4852,6 @@ load-theme hook (See the heading below).
(defun imalison:appearance (&optional frame) (defun imalison:appearance (&optional frame)
(setq font-use-system-font nil) (setq font-use-system-font nil)
(interactive (list nil)) (interactive (list nil))
(unless (member imalison:dark-theme custom-enabled-themes)
(load-theme imalison:dark-theme t))
(spaceline-compile) (spaceline-compile)
(imalison:remove-fringe-and-hl-line-mode) (imalison:remove-fringe-and-hl-line-mode)
(setq powerline-default-separator (random-choice '(butt slant wave)))) (setq powerline-default-separator (random-choice '(butt slant wave))))
@ -4864,6 +4862,8 @@ load-theme hook (See the heading below).
(defun imalison:appearance-setup-hook (&rest args) (defun imalison:appearance-setup-hook (&rest args)
(unless imalison:appearance-setup-done (unless imalison:appearance-setup-done
(unless (member imalison:dark-theme custom-enabled-themes)
(load-theme imalison:dark-theme t))
(apply 'imalison:appearance args) (apply 'imalison:appearance args)
(setq imalison:default-font-size-pt (face-attribute 'default :height)) (setq imalison:default-font-size-pt (face-attribute 'default :height))
(setq imalison:appearance-setup-done t))) (setq imalison:appearance-setup-done t)))