diff --git a/early-init.el b/early-init.el index 442f008..3dee060 100644 --- a/early-init.el +++ b/early-init.el @@ -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 diff --git a/init.d/basics/appearance.el b/init.d/basics/appearance.el index 06b6c65..61b8f55 100644 --- a/init.d/basics/appearance.el +++ b/init.d/basics/appearance.el @@ -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.