.dotfiles/files/emacs/early-init.el at main · Swarsel/.dotfiles · GitHub

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
73
74
75
76
77
78
79
80
81
82
83
84
85
;;; hm-early-init.el --- Emacs configuration à la Home Manager -*- lexical-binding: t; -*-
;;
;;; Commentary:
;;
;; The early init component of the Home Manager Emacs configuration.
;;
;;; Code:


(setq package-quickstart t
      package-quickstart-file "hm-package-quickstart.el")


;; Avoid expensive frame resizing. Inspired by Doom Emacs.
(setq frame-inhibit-implied-resize t)

(defvar swarsel-file-name-handler-alist file-name-handler-alist)
(defvar swarsel-vc-handled-backends vc-handled-backends)

(defun swarsel/restore-startup-settings ()
  "Restore startup-tuned variables to their regular runtime values."
  (unless (featurep 'mps)
    (setq gc-cons-threshold (* 100 1024 1024)
          gc-cons-percentage 0.1))
  (setq jit-lock-defer-time 0.05
        read-process-output-max (* 1024 1024)
        file-name-handler-alist swarsel-file-name-handler-alist
        vc-handled-backends swarsel-vc-handled-backends)
  (fset 'epg-wait-for-status #'ignore))

(unless (featurep 'mps)
  (setq gc-cons-threshold most-positive-fixnum
        gc-cons-percentage 0.6))
(setq file-name-handler-alist nil
      vc-handled-backends nil)

(add-hook 'emacs-startup-hook #'swarsel/restore-startup-settings)

(tool-bar-mode 0)
(menu-bar-mode 0)
(scroll-bar-mode 0)

(setq frame-inhibit-implied-resize t
      ring-bell-function 'ignore
      use-dialog-box nil
      use-file-dialog nil
      use-short-answers t
      inhibit-startup-message t
      inhibit-splash-screen t
      inhibit-startup-screen t
      inhibit-x-resources t
      inhibit-startup-buffer-menu t
      inhibit-startup-echo-area-message user-login-name
      comp-deferred-compilation nil)

(setq-default left-margin-width 1
              right-margin-width 1)

(setq-default default-frame-alist
              (append
               (list
                '(undecorated . t)
                '(background-color . "#1d252c")
                '(foreground-color . "#a0b3c5")
                '(font . "FiraCode Nerd Font")
                '(vertical-scroll-bars . nil)
                '(horizontal-scroll-bars . nil)
                '(internal-border-width . 5)
                '(tool-bar-lines . 0)
                '(menu-bar-lines . 0))))

(add-hook
 'after-make-frame-functions
 (lambda (frame)
   (with-selected-frame frame
     (when (display-graphic-p)
       (define-key input-decode-map (kbd "C-i") [DUMMY-i])
       (define-key input-decode-map (kbd "C-[") [DUMMY-lsb])
       (define-key input-decode-map (kbd "C-m") [DUMMY-m])
       ))))


(provide 'hm-early-init)
;; hm-early-init.el ends here