blob: 683dbd92d2936518f12fdf0ef58727cf3bd0c6da (
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
|
(setq auth-source-save-behavior nil
auto-save-default nil
change-major-mode-with-file-name nil
custom-buffer-indent 4
custom-file (file-name-concat user-emacs-directory "custom.el")
custom-theme-directory (file-name-concat user-emacs-directory "themes/")
debugger 'edebug
initial-buffer-choice (lambda ()
(let ((initial-file (file-name-concat
user-emacs-directory
"initial-buffer")))
(if (file-exists-p initial-file)
(find-file initial-file)
(get-buffer-create "*scratch*"))))
enable-local-variables :safe
inferior-lisp-program "sbcl"
inhibit-splash-screen t
make-backup-files nil
scheme-program-name "guile"
tab-width 4
temporary-file-directory (file-name-concat (getenv "HOME") "tmp" ".emacs"))
(setq-default display-fill-column-indicator-column 120
indent-tabs-mode nil)
(let* ((init-modules-wildcard
(file-name-concat user-emacs-directory "init" "*"))
(lisp-modules-wildcard
(file-name-concat user-emacs-directory "lisp" "*"))
(init-modules-files
(file-expand-wildcards init-modules-wildcard t))
(lisp-modules-files
(file-expand-wildcards lisp-modules-wildcard t))
(files
(append init-modules-files lisp-modules-files))
(directories
(seq-filter 'file-directory-p files)))
(mapc (lambda (directory)
(add-to-list 'load-path directory))
directories))
(mkdir temporary-file-directory t)
(require 'init-garbage-collection)
(when (and (>= emacs-major-version 29) (native-comp-available-p))
(require 'init-native-comp))
|
