1 files changed, 38 insertions, 0 deletions
diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/early-init.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/early-init.el
new file mode 100644
index 0000000..037dc17
--- /dev/null
+++ b/guix/kolwynia/home/bdunahu/files/.config/emacs/early-init.el
@@ -0,0 +1,38 @@
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+
+;;;; display load information + speedups
+(defun bd/display-startup-time ()
+  (message "Emacs loaded in %s with %d garbage collections."
+           (format "%.2f seconds"
+                   (float-time
+                    (time-subtract after-init-time before-init-time)))
+           gcs-done))
+
+(add-hook 'emacs-startup-hook #'bd/display-startup-time)
+
+(setq frame-inhibit-implied-resize t)
+
+;; reduce the frequency of garbage collection during startup
+;; by making it happen as little as possible
+;; TODO: `most-positive-fixnum' will pressure system memory if used
+;; as a permanent value
+(setopt gc-cons-threshold most-positive-fixnum
+        gc-cons-percentage 0.5)
+
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (setopt gc-cons-threshold (* 1024 1024 20)
+                    gc-cons-percentage 0.2)))
+
+
+;;;; avoid-blinding startup
+(push '(menu-bar-lines . 0) default-frame-alist)
+(push '(tool-bar-lines . 0) default-frame-alist)
+(push '(background-color . "#000000") default-frame-alist)
+(push '(foreground-color . "#ffffff") default-frame-alist)
+
+
+;;; early-init.el ends here