Emacs: Load minimal theme in early-init.el.
This commit is contained in:
parent
09562f4755
commit
9081bde3d4
|
@ -7,5 +7,10 @@
|
||||||
(customize-set-variable 'package-enable-at-startup nil
|
(customize-set-variable 'package-enable-at-startup nil
|
||||||
"Don't initialize packages.")
|
"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)
|
(provide 'early-init)
|
||||||
;;; early-init.el ends here
|
;;; early-init.el ends here
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
|
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Time-stamp: <2020-04-21T04:15:32+0200>
|
;; Time-stamp: <2020-04-25T18:23:05+0200>
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
|
||||||
|
@ -67,7 +67,19 @@
|
||||||
(set-face-background 'scroll-bar (face-background 'default))
|
(set-face-background 'scroll-bar (face-background 'default))
|
||||||
(set-face-foreground 'scroll-bar (face-foreground 'shadow))
|
(set-face-foreground 'scroll-bar (face-foreground 'shadow))
|
||||||
(defun doom-themes-hide-fringes ()
|
(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.
|
) ; unless slow-computer.
|
||||||
|
|
||||||
;; Neat modeline.
|
;; Neat modeline.
|
||||||
|
|
Loading…
Reference in New Issue