diff options
Diffstat (limited to 'early-init.el')
-rw-r--r-- | early-init.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/early-init.el b/early-init.el index 6f6a848..c75d963 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -1,9 +1,7 @@ | |||
1 | ;;; emacs early init -*- lexical-binding: t; -*- | 1 | ;;; early-init.el --- Emacs early init -*- lexical-binding: t; -*- |
2 | ;; by C. Duckworth <acdw@acdw.net> | 2 | ;; by C. Duckworth <acdw@acdw.net> |
3 | ;; Bankruptcy: 9 | 3 | ;; Bankruptcy: 9 |
4 | 4 | ||
5 | (provide 'early-init) | ||
6 | |||
7 | ;;; Speed up init | 5 | ;;; Speed up init |
8 | 6 | ||
9 | ;; Restore things after init | 7 | ;; Restore things after init |
@@ -71,6 +69,9 @@ See `no-littering' for examples.") | |||
71 | (+define-dir sync/ (expand-file-name "~/Sync") | 69 | (+define-dir sync/ (expand-file-name "~/Sync") |
72 | "My Syncthing directory.") | 70 | "My Syncthing directory.") |
73 | 71 | ||
72 | (+define-dir private/ (sync/ "emacs/private")) | ||
73 | (add-to-list 'load-path private/) | ||
74 | |||
74 | ;;; Packages | 75 | ;;; Packages |
75 | 76 | ||
76 | (setf package-enable-at-startup nil | 77 | (setf package-enable-at-startup nil |
@@ -79,9 +80,9 @@ See `no-littering' for examples.") | |||
79 | (require 'yoke) | 80 | (require 'yoke) |
80 | (add-hook 'emacs-lisp-mode-hook #'yoke-imenu-insinuate) | 81 | (add-hook 'emacs-lisp-mode-hook #'yoke-imenu-insinuate) |
81 | 82 | ||
82 | (yoke compat "https://git.sr.ht/~pkal/compat") | 83 | (yoke (compat "https://git.sr.ht/~pkal/compat")) |
83 | 84 | ||
84 | (yoke no-littering "https://github.com/emacscollective/no-littering" | 85 | (yoke (no-littering "https://github.com/emacscollective/no-littering") |
85 | (setf no-littering-etc-directory .etc | 86 | (setf no-littering-etc-directory .etc |
86 | no-littering-var-directory .etc | 87 | no-littering-var-directory .etc |
87 | custom-file (.etc "custom.el")) | 88 | custom-file (.etc "custom.el")) |
@@ -92,3 +93,6 @@ See `no-littering' for examples.") | |||
92 | (setcar comp-eln-load-path (expand-file-name (.etc "eln-cache" t)))) | 93 | (setcar comp-eln-load-path (expand-file-name (.etc "eln-cache" t)))) |
93 | (when (fboundp 'startup-redirect-eln-cache) | 94 | (when (fboundp 'startup-redirect-eln-cache) |
94 | (startup-redirect-eln-cache (convert-standard-filename (.etc "eln-cache/"))))) | 95 | (startup-redirect-eln-cache (convert-standard-filename (.etc "eln-cache/"))))) |
96 | |||
97 | (provide 'early-init) | ||
98 | ;;; early-init.el ends here | ||