diff options
Diffstat (limited to 'early-init.el')
-rw-r--r-- | early-init.el | 55 |
1 files changed, 55 insertions, 0 deletions
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 @@ | |||
1 | ;;; early-init.el ~ acdw | ||
2 | |||
3 | ;;; gui | ||
4 | (push '(tool-bar-lines . 0) default-frame-alist) | ||
5 | (push '(menu-bar-lines . 0) default-frame-alist) | ||
6 | |||
7 | (unless (display-graphic-p) | ||
8 | (tool-bar-mode -1) | ||
9 | (menu-bar-mode -1)) | ||
10 | (scroll-bar-mode -1) | ||
11 | (fringe-mode '(7 . 1)) | ||
12 | |||
13 | (setq inhibit-startup-buffer-menu t) | ||
14 | (setq inhibit-startup-screen t) | ||
15 | (setq inhibit-startup-echo-area-message "acdw") | ||
16 | (setq initial-buffer-choice t) | ||
17 | (setq initial-scratch-message nil) | ||
18 | |||
19 | ;;; straight.el ~ github.com/raxod502/straight.el | ||
20 | |||
21 | ;; use use-package | ||
22 | (setq straight-use-package-by-default t) | ||
23 | |||
24 | ;; boostrap straight.el | ||
25 | (defvar bootstrap-version) | ||
26 | (let ((bootstrap-file | ||
27 | (expand-file-name "straight/repos/straight.el/bootstrap.el" | ||
28 | user-emacs-directory)) | ||
29 | (bootstrap-version 5)) | ||
30 | (unless (file-exists-p bootstrap-file) | ||
31 | (with-current-buffer | ||
32 | (url-retrieve-synchronously | ||
33 | "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" | ||
34 | 'silent 'inhibit-cookies) | ||
35 | (goto-char (point-max)) | ||
36 | (eval-print-last-sexp))) | ||
37 | (load bootstrap-file nil 'nomessage)) | ||
38 | |||
39 | ;; install use-package with straight | ||
40 | (straight-use-package 'use-package) | ||
41 | |||
42 | ;;; other init stuff | ||
43 | |||
44 | (setq gc-cons-threshold (* 256 1024 1024)) | ||
45 | (defvar file-name-handler-alist-old file-name-handler-alist) | ||
46 | (setq file-name-handler-alist nil) | ||
47 | (setq message-log-max 16384) | ||
48 | (setq byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local)) | ||
49 | |||
50 | ;; post-init | ||
51 | (add-hook 'after-init-hook | ||
52 | (lambda () | ||
53 | (setq file-name-handler-alist file-name-handler-alist-old) | ||
54 | (setq gc-cons-threshold (* 32 1024 1024))) | ||
55 | t) | ||