dotemacs/init.el at master · kitallis/dotemacs · 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
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(defconst *is-a-mac* (eq system-type 'darwin))

;; Reduce the frequency of garbage collection by making it happen on
;; each 50MB of allocated data (the default is on every 0.76MB)
(setq gc-cons-threshold 50000000 gc-cons-percentage 0.6)

;; Allow loading custom config from specified dir
(add-to-list 'load-path (expand-file-name "conf" user-emacs-directory))

;; Bootstrap configuration for straight.el
(setq straight-use-package-by-default t)
(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))
(straight-use-package 'use-package)

;; Move custom configuration variables set by Emacs, to a seperate file
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)

;; Load custom configurations
;; These required in a "valid" order
(require 'init-efuns)
(require 'init-sane-defaults)
(require 'init-appearance)
(require 'init-editing)
(require 'init-lsp)
(require 'init-code)
(require 'init-clojure)
(require 'init-completions)
(require 'init-dired)
(require 'init-git)
(require 'init-org)
(require 'init-projectile)
(require 'init-keybinds)

;; User customizations
;; Add your customizations / overrides to *user-customizations-path*
(defconst *user-customizations-path* "~/.emacs.d/init-user.el")
(when (file-exists-p *user-customizations-path*)
  (setq user-custom-file *user-customizations-path*)
  (load user-custom-file)
  (put 'downcase-region 'disabled nil))
(put 'narrow-to-region 'disabled nil)

;; Reset GC to reasonable defaults
(add-hook 'emacs-startup-hook
          (lambda ()
            (setq gc-cons-threshold 16777216
                  gc-cons-percentage 0.1)))