From 701fe0a21b92f693fed5420a8277c20e67948689 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 2 Sep 2020 22:30:52 -0500
Subject: Add early-init and change to straight

---
 early-init.el | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 early-init.el

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
new file mode 100644
index 0000000..17d0579
--- /dev/null
+++ b/early-init.el
@@ -0,0 +1,55 @@
+;;; early-init.el ~ acdw
+
+;;; gui
+(push '(tool-bar-lines . 0) default-frame-alist)
+(push '(menu-bar-lines . 0) default-frame-alist)
+
+(unless (display-graphic-p)
+  (tool-bar-mode -1)
+  (menu-bar-mode -1))
+(scroll-bar-mode -1)
+(fringe-mode '(7 . 1))
+
+(setq inhibit-startup-buffer-menu t)
+(setq inhibit-startup-screen t)
+(setq inhibit-startup-echo-area-message "acdw")
+(setq initial-buffer-choice t)
+(setq initial-scratch-message nil)
+
+;;; straight.el ~ github.com/raxod502/straight.el
+
+;; use use-package
+(setq straight-use-package-by-default t)
+
+;; boostrap straight.el
+(defvar bootstrap-version)
+(let ((bootstrap-file
+       (expand-file-name "straight/repos/straight.el/bootstrap.el"
+			 user-emacs-directory))
+      (bootstrap-version 5))
+  (unless (file-exists-p bootstrap-file)
+    (with-current-buffer
+	(url-retrieve-synchronously
+	 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+	 'silent 'inhibit-cookies)
+      (goto-char (point-max))
+      (eval-print-last-sexp)))
+  (load bootstrap-file nil 'nomessage))
+
+;; install use-package with straight
+(straight-use-package 'use-package)
+
+;;; other init stuff
+
+(setq gc-cons-threshold (* 256 1024 1024))
+(defvar file-name-handler-alist-old file-name-handler-alist)
+(setq file-name-handler-alist nil)
+(setq message-log-max 16384)
+(setq byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local))
+
+;; post-init
+(add-hook 'after-init-hook
+	  (lambda ()
+	    (setq file-name-handler-alist file-name-handler-alist-old)
+	    (setq gc-cons-threshold (* 32 1024 1024)))
+	  t)
-- 
cgit 1.4.1-21-gabe81