From 30189fccfc85b4bdf58759d2ca519ce09832d990 Mon Sep 17 00:00:00 2001 From: Thomas Schneider Date: Tue, 26 Sep 2023 15:59:09 +0200 Subject: Emacs: Simplify .emacs.d file handling --- dot.emacs.d/init.el | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'dot.emacs.d/init.el') diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el index 87e338b..53c6d1d 100644 --- a/dot.emacs.d/init.el +++ b/dot.emacs.d/init.el @@ -12,7 +12,7 @@ (setq use-package-always-ensure t use-package-verbose t) -(let ((--backup-directory (concat user-emacs-directory "backups"))) +(let ((--backup-directory (locate-user-emacs-file "backups"))) (unless (file-exists-p --backup-directory) (make-directory --backup-directory t)) (setq backup-directory-alist `(("." . ,--backup-directory)))) @@ -28,27 +28,24 @@ auto-save-interval 200 ; number of keystrokes between auto-saves (default: 300) ) (defun qsx-backup-enable-predicate (name) - (let ((directory (file-name-directory (file-truename (expand-file-name name)))) + (let ((directory + (file-name-directory (file-truename (expand-file-name name)))) (auto-save-list-directory (file-name-as-directory - (file-truename (expand-file-name "auto-save-list" user-emacs-directory))))) + (locate-user-emacs-file "auto-save-list")))) (if (string= directory auto-save-list-directory) nil (normal-backup-enable-predicate name)))) (setq backup-enable-predicate #'qsx-backup-enable-predicate) -(let ((default-directory - (concat user-emacs-directory - (convert-standard-filename "elisp/")))) +(let ((default-directory (locate-user-emacs-file "elisp"))) (normal-top-level-add-to-load-path '(".")) (normal-top-level-add-subdirs-to-load-path)) (load "server") (unless (server-running-p) (server-start)) -(setq custom-file - (concat user-emacs-directory - (convert-standard-filename "custom.el"))) +(setq custom-file (locate-user-emacs-file "custom.el")) (load custom-file :noerror) (load-theme 'deeper-blue) -- cgit v1.2.3