From 338532f19c121026c57d34761d13f8f8d1781fd1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <id@rbenencia.name>
Date: Sat, 12 Oct 2024 09:37:36 -0700
Subject: emacs: use pure modus themes; avoid initial flash of light

---
 .emacs.d/early-init.el        | 14 ++++++++++++--
 .emacs.d/init.el              |  4 +++-
 .emacs.d/rul-init.d/themes.el |  4 ++--
 3 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/.emacs.d/early-init.el b/.emacs.d/early-init.el
index 495c277..1e13ee8 100644
--- a/.emacs.d/early-init.el
+++ b/.emacs.d/early-init.el
@@ -5,8 +5,8 @@
 ;; Initialise installed packages
 (setq package-enable-at-startup t)
 
-;; Do not report warning errors 
-(setq native-comp-async-report-warnings-errors 'silent) 
+;; Do not report warning errors
+(setq native-comp-async-report-warnings-errors 'silent)
 
 ;; Truly maximize screen
 (setq frame-resize-pixelwise t)
@@ -17,4 +17,14 @@
 ;; No need for titlebar
 (modify-frame-parameters nil '((undecorated . t)))
 
+(defun rul-emacs-avoid-initial-flash-of-light ()
+  "Avoid flash of light when starting Emacs. Inspired on
+  prot-emacs-avoid-initial-flash-of-light."
+    (setq mode-line-format nil)
+    (set-face-attribute 'default nil :background "#000000" :foreground "#ffffff")
+    (set-face-attribute 'mode-line nil :background "#000000" :foreground "#ffffff" :box 'unspecified)
+    )
+
+(rul-emacs-avoid-initial-flash-of-light)
+
 ;;; early-init.el ends here
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 5578c84..24c0191 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -66,6 +66,9 @@
 (unless (server-running-p)
   (server-start))
 
+;; Load themes early in the bootstrap process.
+(load-file "~/.emacs.d/rul-init.d/themes.el")
+
 ;; ------
 ;; Helper for compilation.
 ;; ------
@@ -184,7 +187,6 @@
 (require 'rul-write)
 
 (load-file "~/.emacs.d/rul-init.d/fonts.el")
-(load-file "~/.emacs.d/rul-init.d/themes.el")
 
 ;; Init parts (will be deprecated in favor of packages)
 (load-file "~/.emacs.d/rul-init.d/auto-fill.el")
diff --git a/.emacs.d/rul-init.d/themes.el b/.emacs.d/rul-init.d/themes.el
index d5c591a..468cd28 100644
--- a/.emacs.d/rul-init.d/themes.el
+++ b/.emacs.d/rul-init.d/themes.el
@@ -19,9 +19,9 @@
   (message "value is %s" value)
   (if (equal value '1)
       (progn (message "Switch to dark theme")
-             (modus-themes-select 'modus-vivendi-tinted))
+             (modus-themes-select 'modus-vivendi))
     (progn (message "Switch to light theme")
-           (modus-themes-select 'modus-operandi-tinted))))
+           (modus-themes-select 'modus-operandi))))
 
 (defun mf/color-scheme-changed (path var value)
   "DBus handler to detect when the color-scheme has changed."
-- 
cgit v1.2.3