jens/emacs-config
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix paths to handle .config/emacs configuration location

Browse Source
This commit is contained in:
Jens Luedicke
2025-09-21 15:37:06 +02:00
parent 634d0674b4
commit 7b44a125e9
3 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
early-init.el
View File

@@ -5,6 +5,9 @@
;;; Code: ;;; Code:
;; Set user-emacs-directory to use XDG config location
(setq user-emacs-directory (expand-file-name "~/.config/emacs/"))
;; Defer garbage collection further back in the startup process ;; Defer garbage collection further back in the startup process
;; This makes startup faster by preventing frequent GC ;; This makes startup faster by preventing frequent GC
(setq gc-cons-threshold most-positive-fixnum (setq gc-cons-threshold most-positive-fixnum

12
lisp/init-core.el
View File

@@ -100,13 +100,13 @@
(setq ring-bell-function 'ignore) (setq ring-bell-function 'ignore)
;; Auto-save and backup settings ;; Auto-save and backup settings
(setq backup-directory-alist '(("." . "~/.emacs.d/backups"))) (setq backup-directory-alist `(("." . ,(expand-file-name "backups" user-emacs-directory))))
(setq delete-old-versions t (setq delete-old-versions t
kept-new-versions 6 kept-new-versions 6
kept-old-versions 2 kept-old-versions 2
version-control t) version-control t)
(setq auto-save-file-name-transforms (setq auto-save-file-name-transforms
'((".*" "~/.emacs.d/auto-save-list/" t))) `((".*" ,(expand-file-name "auto-save-list/" user-emacs-directory) t)))
;; Use ls-lisp (Emacs's built-in ls emulation) for better cross-platform compatibility ;; Use ls-lisp (Emacs's built-in ls emulation) for better cross-platform compatibility
(setq ls-lisp-use-insert-directory-program nil) (setq ls-lisp-use-insert-directory-program nil)
@@ -114,10 +114,10 @@
;;; Session Management ;;; Session Management
(save-place-mode 1) (save-place-mode 1)
(setq save-place-file "~/.emacs.d/saveplace") (setq save-place-file (expand-file-name "saveplace" user-emacs-directory))
(savehist-mode 1) (savehist-mode 1)
(setq savehist-file "~/.emacs.d/savehist") (setq savehist-file (expand-file-name "savehist" user-emacs-directory))
(setq history-length 1000) (setq history-length 1000)
(recentf-mode 1) (recentf-mode 1)
@@ -138,8 +138,8 @@
(desktop-save-mode 1) (desktop-save-mode 1)
(setq desktop-save t) (setq desktop-save t)
(setq desktop-auto-save-timeout 300) (setq desktop-auto-save-timeout 300)
(setq desktop-path '("~/.emacs.d/")) (setq desktop-path (list user-emacs-directory))
(setq desktop-dirname "~/.emacs.d/") (setq desktop-dirname user-emacs-directory)
(setq desktop-base-file-name "emacs-desktop") (setq desktop-base-file-name "emacs-desktop")
(setq desktop-restore-frames t) (setq desktop-restore-frames t)
;; Load desktop after a delay ;; Load desktop after a delay

2
lisp/init-qol.el
View File

@@ -28,7 +28,7 @@
:config :config
(setq undo-tree-visualizer-timestamps t) (setq undo-tree-visualizer-timestamps t)
(setq undo-tree-visualizer-diff t) (setq undo-tree-visualizer-diff t)
(setq undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo-tree-history"))) (setq undo-tree-history-directory-alist `(("." . ,(expand-file-name "undo-tree-history" user-emacs-directory))))
(setq undo-tree-auto-save-history t) (setq undo-tree-auto-save-history t)
:bind (("C-x u" . undo-tree-visualize) :bind (("C-x u" . undo-tree-visualize)
("C-/" . undo-tree-undo) ("C-/" . undo-tree-undo)