File tree Expand file tree Collapse file tree 2 files changed +0
-18
lines changed Expand file tree Collapse file tree 2 files changed +0
-18
lines changed Original file line number Diff line number Diff line change 166
166
" Disable previously enabled themes before enabling the new one."
167
167
(mapc #'disable-theme custom-enabled-themes)))
168
168
169
- (advice-add
170
- 'load-theme :after
171
- (satch-defun +theme--save-current-theme-background-color:after-a (&rest _)
172
- " Save the background color."
173
- (with-temp-buffer
174
- (insert (face-background 'default ))
175
- (let ((buffer-file-name (concat minemacs-cache-dir " background-color" )))
176
- (+shutup! (basic-save-buffer-1 ))))))
177
-
178
169
; ; Show trailing whitespace in `prog-mode' and `conf-mode'
179
170
(+setq-hook! (prog-mode conf-mode) show-trailing-whitespace t )
180
171
Original file line number Diff line number Diff line change 31
31
menu-bar-mode nil
32
32
scroll-bar-mode nil )
33
33
34
- ; ; In `me-builtin' , we advice `load-theme' to save the background color of the
35
- ; ; current theme to a file. If that file exists, we load the color and apply it
36
- ; ; early to avoid flickering at startup.
37
- (let* ((bg-color (concat (file-name-directory load-file-name) " local/cache/background-color" ))
38
- (bg-color (and (file-exists-p bg-color) (with-temp-buffer (insert-file-contents bg-color) (buffer-string )))))
39
- ; ; Extra checks to ensure we have a valid color value, like #0123fe3
40
- (when (and bg-color (length= bg-color 7 ) (string-equal (substring bg-color 0 1 ) " #" ))
41
- (push `(background-color . , bg-color ) default-frame-alist)))
42
-
43
34
; ; NOTE: In Emacs29+, frames can have a transparent background via the
44
35
; ; `alpha-background' parameter. For a better experience, this value should be
45
36
; ; set early before any frame gets created (i.e. in "early-init.el"). MinEmacs
You can’t perform that action at this time.
0 commit comments