awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #891 from edwintorok/theme-elc

Browse Source 
Load .elc even for themes
This commit is contained in:
Henrik Lissner
2018-09-20 09:15:19 -04:00
committed by GitHub
parent 25d19514de 228204926d
commit 9c4147bbbb
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/core-ui.el
View File

@ -448,6 +448,16 @@ instead). Meant for `kill-buffer-query-functions'."
(powerline-reset))) (powerline-reset)))
(advice-add #'load-theme :around #'doom*disable-old-themes-first) (advice-add #'load-theme :around #'doom*disable-old-themes-first)
(defun doom*prefer-compiled-theme (orig-fn &rest args)
"Make `load-theme' prioritize the byte-compiled theme (if it exists) for a
moderate boost in startup (or theme switch) time."
(cl-letf* ((old-locate-file (symbol-function 'locate-file))
((symbol-function 'locate-file)
(lambda (filename path &optional _suffixes predicate)
(funcall old-locate-file filename path '("c" "") predicate))))
(apply orig-fn args)))
(advice-add #'load-theme :around #'doom*prefer-compiled-theme)
(defun doom|disable-whitespace-mode-in-childframes (frame) (defun doom|disable-whitespace-mode-in-childframes (frame)
(when (frame-parameter frame 'parent-frame) (when (frame-parameter frame 'parent-frame)
(with-selected-frame frame (with-selected-frame frame