blob: ebe406213ff295649cd7ab885459a3e098247870 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
;;; early-init.el --- The first file Emacs loads. -*- lexical-binding: t; -*-
;; Copyright (C) 2022-2024 Aryadev Chavali
;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
;; Keywords:
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License Version
;; 2 as published by the Free Software Foundation.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Sets up some variables and graphical configuration to make Emacs less janky
;; looking while loading. Shamelessly copies some optimisations from Doom
;; Emacs.
;;; Code:
(setq-default auto-mode-case-fold nil
bidi-display-reordering 'left-to-right
bidi-inhibit-bpa t
bidi-paragraph-direction 'left-to-right
cursor-in-non-selected-windows nil
fast-but-imprecise-scrolling t
frame-inhibit-implied-resize t
frame-resize-pixelwise t
gc-cons-percentage 1
gc-cons-threshold most-positive-fixnum
highlight-nonselected-windows nil
idle-update-delay 1.0
load-prefer-newer noninteractive
load-prefer-newer noninteractive
native-comp-always-compile nil
native-comp-async-jobs-number 4
native-comp-async-report-warnings-errors 'silent
native-comp-eln-load-path (list (concat user-emacs-directory ".local/native-compile"))
package-enable-at-startup nil
redisplay-skip-fontification-on-input t)
;; don't use x resources lol
(advice-add #'x-apply-session-resources :override #'ignore)
;; turn off the menu bar, tool bar, scroll bar, fringes
;; also set the transparency (active inactive)
(setq-default
default-frame-alist '((menu-bar-lines . nil)
(tool-bar-lines . nil)
(scroll-bar-lines . nil)
(vertical-scroll-bars . nil)
(left-fringe . 0)
(right-fringe . 0)
(alpha . (90 80)))
menu-bar-mode nil
tool-bar-mode nil
scroll-bar-mode nil)
;; no flash bang, please
(set-face-background 'default "#0a0a0a")
;; Disable making the tool bar
(advice-add #'tool-bar-setup :override #'ignore)
;; Even though we disable the startup screen in the config, we need to do this
;; to ensure it actually doesn't display it
(advice-add #'display-startup-screen :override #'ignore)
|
