blob: b74ba1841d98aa27e2a2fb6530bb3c3d874cfd3c (
plain) (
blame)
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
|
;; -*- lexical-binding: t; -*-
(defconst 1-KiB 1024
"The number of bytes in 1 kibibyte")
(defconst 1-MiB (* 1-KiB 1024)
"The number of bytes in 1 mebibyte.")
(defconst 1-GiB (* 1-MiB 1024)
"The number of bytes in 1 gibibyte.")
(defconst x-cache-directory
(expand-file-name
"emacs"
(or (getenv "XDG_CACHE_HOME")
(expand-file-name ".cache" (getenv "HOME"))))
"The XDG-conformant cache directory that Emacs should use.")
(defconst x-config-directory
(expand-file-name
"emacs"
(or (getenv "XDG_CONFIG_HOME")
(expand-file-name ".config" (getenv "HOME"))))
"The XDG-conformant config directory that Emacs should use.")
(defconst x-data-directory
(expand-file-name
"emacs"
(or (getenv "XDG_DATA_HOME")
(expand-file-name ".local/share" (getenv "HOME"))))
"The XDG-conformant data directory that Emacs should use.")
;; Create standard Emacs directories
(dolist (dir (list x-cache-directory
x-config-directory
x-data-directory))
(make-directory dir 'parents))
(setq user-emacs-directory x-cache-directory
auto-save-list-file-prefix (expand-file-name
"auto-save-list/"
x-cache-directory)
backup-directory-alist `(("." . ,(expand-file-name
"backups"
x-cache-directory))))
(when (featurep 'native-compile)
(startup-redirect-eln-cache
(expand-file-name (expand-file-name "eln/" x-cache-directory))))
;; Don’t call the garbage collector during initialization
(setq gc-cons-threshold most-positive-fixnum)
(add-hook 'after-init-hook
(lambda () (setq gc-cons-threshold (* 512 1-MiB))))
(setq read-process-output-max
(let ((pipe-size-file "/proc/sys/fs/pipe-max-size"))
(if (file-exists-p pipe-size-file)
(with-temp-buffer
(insert-file-contents pipe-size-file)
(number-at-point))
1-MiB)))
(setq package-enable-at-startup nil)
|
