Move emacs 27 to $XDG_CONFIG_HOME/emacs
This commit is contained in:
@@ -0,0 +1,42 @@
|
||||
;;; early-init.el --- -*- lexical-binding: t; -*-
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Emacs 27 introduces early-init.el, which is run before package and UI
|
||||
;; initialization happens.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Defer the garbage collection during startup
|
||||
(setq gc-cons-threshold most-positive-fixnum)
|
||||
(add-hook 'emacs-startup-hook (lambda () (setq gc-cons-threshold 8000000)))
|
||||
|
||||
;; -------------------------------------
|
||||
|
||||
;; Base directory
|
||||
(setq user-emacs-directory (file-name-directory load-file-name))
|
||||
|
||||
;; -------------------------------------
|
||||
|
||||
;; Set package install location
|
||||
(setq package-user-dir (concat user-emacs-directory "elpa"))
|
||||
|
||||
;; Set package quickstart location
|
||||
(setq package-quickstart-file (concat
|
||||
(getenv "XDG_CACHE_HOME")
|
||||
"/emacs/package-quickstart.el"))
|
||||
|
||||
;; Precompute activation actions to speed up startup
|
||||
(setq package-quickstart t)
|
||||
|
||||
;; -------------------------------------
|
||||
|
||||
;; Disable frame bars before they're loaded in
|
||||
(push '(menu-bar-lines . 0) default-frame-alist)
|
||||
(push '(tool-bar-lines . 0) default-frame-alist)
|
||||
(push '(vertical-scroll-bars) default-frame-alist)
|
||||
|
||||
;; Do not resize the frame
|
||||
(setq frame-inhibit-implied-resize t)
|
||||
|
||||
;;; early-init.el ends here
|
||||
Reference in New Issue
Block a user