.

1 files changed, 71 insertions, 0 deletions

diff --git a/home/dots/.emacs.d/early-init.el b/home/dots/.emacs.d/early-init.el
new file mode 100644
index 0000000..6da7839
--- /dev/null
+++ b/home/dots/.emacs.d/early-init.el
@@ -0,0 +1,71 @@
+;;; early-init.el --- Early Init -*- no-byte-compile: t; lexical-binding: t; -*-
+(defconst my/start-time (current-time))
+
+(defvar file-name-handler-alist-old file-name-handler-alist)
+
+
+(setq file-name-handler-alist nil
+      message-log-max 16384
+      gc-cons-threshold most-positive-fixnum   ;; Defer Garbage collection
+      gc-cons-percentage 1.0)
+
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (setq file-name-handler-alist file-name-handler-alist-old)
+            (garbage-collect)
+            (message "Load time %.06f"
+                     (float-time (time-since
+                                  my/start-time)))) t)
+
+
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+(show-paren-mode 1)
+(global-font-lock-mode t)
+(winner-mode t)
+(set-language-environment "UTF-8")
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(set-selection-coding-system 'utf-8)
+(prefer-coding-system 'utf-8)
+(setq load-prefer-newer t)
+(setq inhibit-compacting-font-caches t)
+(setq inhibit-startup-screen t
+      inhibit-startup-echo-area-message user-login-name)
+(setq initial-buffer-choice nil
+      inhibit-startup-buffer-menu t
+      inhibit-x-resources t)
+
+;; Disable bidirectional text scanning for a modest performance boost.
+(setq-default bidi-display-reordering 'left-to-right
+              bidi-paragraph-direction 'left-to-right)
+
+;; Give up some bidirectional functionality for slightly faster re-display.
+(setq bidi-inhibit-bpa t)
+(advice-add #'display-startup-echo-area-message :override #'ignore)
+(advice-add #'display-startup-screen :override #'ignore)
+(setq initial-major-mode 'fundamental-mode
+      initial-scratch-message nil)
+(if (and (featurep 'native-compile)
+         (fboundp 'native-comp-available-p)
+         (native-comp-available-p))
+    ;; Activate `native-compile'
+    (setq native-comp-jit-compilation t
+          native-comp-deferred-compilation t  ; Obsolete since Emacs 29.1
+          package-native-compile t)
+  ;; Deactivate the `native-compile' feature if it is not available
+  (setq features (delq 'native-compile features)))
+(setq native-comp-async-report-warnings-errors
+      'silent)
+(setq inhibit-splash-screen t)
+
+(setq auto-mode-case-fold nil)
+(setq default-input-method nil)
+(setq use-package-enable-imenu-support t)
+(setq package-archives '(("melpa" . "https://melpa.org/packages/")
+                         ("melpa-stable" . "https://stable.melpa.org/packages/")
+                         ("gnu" . "https://elpa.gnu.org/packages/")
+			 ("non-gnu" . "https://elpa.nongnu.org/nongnu/")))
+
+
+(provide 'early-init)