diff options
| author | Raúl Benencia <id@rbenencia.name> | 2024-10-12 09:37:36 -0700 |
|---|---|---|
| committer | Raúl Benencia <id@rbenencia.name> | 2024-10-12 09:38:29 -0700 |
| commit | 338532f19c121026c57d34761d13f8f8d1781fd1 (patch) | |
| tree | 20b1b9b7ee38ff7f02b6279c1da4a11f82104fc3 /.emacs.d | |
| parent | 4b327fe7fd1bff0385117d923e0072f9f72049a7 (diff) | |
emacs: use pure modus themes; avoid initial flash of light
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/early-init.el | 14 | ||||
| -rw-r--r-- | .emacs.d/init.el | 4 | ||||
| -rw-r--r-- | .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." |