tastytea/.emacs.d
tastytea
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Emacs: Load minimal theme in early-init.el.

This commit is contained in:
tastytea 2020-04-25 18:23:31 +02:00
parent 09562f4755
commit 9081bde3d4
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
early-init.el
View File

@ -7,5 +7,10 @@
(customize-set-variable 'package-enable-at-startup nil
"Don't initialize packages.")
;; Load minimal theme, to make the startup look nicer.
(let ((filename (expand-file-name "early-theme.el" user-emacs-directory)))
(when (file-exists-p filename)
(load filename)))
(provide 'early-init)
;;; early-init.el ends here

16
init.d/basics/appearance.el
View File

@ -1,6 +1,6 @@
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-04-21T04:15:32+0200>
;; Time-stamp: <2020-04-25T18:23:05+0200>
;;; Commentary:
@ -67,7 +67,19 @@
(set-face-background 'scroll-bar (face-background 'default))
(set-face-foreground 'scroll-bar (face-foreground 'shadow))
(defun doom-themes-hide-fringes ()
"Deactivated.")))
"Deactivated.")
;; Write a minimal theme to file, to load it in early-init.el.
(let ((minimal-theme))
(setq minimal-theme (concat "(set-face-background 'default \""
(face-background 'default) "\")\n"
"(set-face-foreground 'default \""
(face-foreground 'default) "\")\n"
"(tool-bar-mode -1)\n"
"(menu-bar-mode -1)\n"))
(with-temp-file (expand-file-name "early-theme.el"
user-emacs-directory)
(insert minimal-theme)))))
) ; unless slow-computer.
;; Neat modeline.