add emacs config

1 files changed, 40 insertions, 0 deletions

diff --git a/dot_config/emacs/early-init.el b/dot_config/emacs/early-init.el
new file mode 100644
index 0000000..0eea59d
--- /dev/null
+++ b/dot_config/emacs/early-init.el
@@ -0,0 +1,40 @@
+;; early-init.el -*- lexical-binding: t; -*-
+
+;; Disable package.el
+(setq package-enable-at-startup nil)
+
+;; Defer garbage collection further back in the startup process
+(setq gc-cons-threshold most-positive-fixnum
+      gc-cons-percentage 0.6)
+
+(add-hook 'emacs-startup-hook
+  (lambda ()
+    (setq gc-cons-threshold 16777216 ; 16mb
+          gc-cons-percentage 0.1)))
+
+;; Ignore X resources
+(setq inhibit-x-resources t)
+
+;; Do not resize the frame at this early stage.
+(setq frame-inhibit-implied-resize t)
+
+(push '(menu-bar-lines . 0) default-frame-alist)
+(push '(tool-bar-lines . 0) default-frame-alist)
+(push '(vertical-scroll-bars) default-frame-alist)
+(push '(horizontal-scroll-bars) default-frame-alist)
+(push (cons 'left-fringe 8) default-frame-alist)
+(push (cons 'right-fringe 8) default-frame-alist)
+(push '(no-special-glyphs) default-frame-alist)
+(push '(undecorated) default-frame-alist)
+(setq menu-bar-mode nil tool-bar-mode nil scroll-bar-mode nil)
+(push '(internal-border-width . 4) default-frame-alist)
+;; (setq inhibit-startup-screen t)
+(setq inhibit-startup-message t)
+(setq initial-scratch-message nil)
+
+;; Local Variables:
+;; no-byte-compile: t
+;; no-native-compile: t
+;; no-update-autoloads: t
+;; End:
+