aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d
diff options
context:
space:
mode:
authorRaúl Benencia <id@rbenencia.name>2024-10-12 09:37:36 -0700
committerRaúl Benencia <id@rbenencia.name>2024-10-12 09:38:29 -0700
commit338532f19c121026c57d34761d13f8f8d1781fd1 (patch)
tree20b1b9b7ee38ff7f02b6279c1da4a11f82104fc3 /.emacs.d
parent4b327fe7fd1bff0385117d923e0072f9f72049a7 (diff)
emacs: use pure modus themes; avoid initial flash of light
Diffstat (limited to '.emacs.d')
-rw-r--r--.emacs.d/early-init.el14
-rw-r--r--.emacs.d/init.el4
-rw-r--r--.emacs.d/rul-init.d/themes.el4
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."
nihil fit ex nihilo