Merge configuration sections on constants and path settings

This commit is contained in:
Daniel - 2020-09-12 13:15:27 +02:00
parent 3fb7c80312
commit cb9ef5a8d4
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 11 additions and 14 deletions

25
init.el
View File

@ -20,7 +20,7 @@
;;; Code:
;; * Constants
;; * Preliminaries (constants and path settings)
(defconst emacs-d (file-name-directory
(file-chase-links load-file-name))
@ -29,6 +29,16 @@
(defconst on-windows (memq system-type '(windows-nt cygwin))
"Non-nil if and only if this instance of Emacs runs on Windows.")
(setq custom-file (expand-file-name "private/custom.el" emacs-d)
custom-theme-directory (expand-file-name "themes/" emacs-d))
(add-to-list 'load-path (expand-file-name "site-lisp" emacs-d))
;; Ensure that ~/.emacs.d/private exists, because we want to store data there
(let ((private-data-dir (expand-file-name "private/" emacs-d)))
(unless (file-directory-p private-data-dir)
(make-directory private-data-dir)))
;; * Packages
@ -55,19 +65,6 @@
(put 'use-package 'lisp-indent-function 1)
;; * Paths
(setq custom-file (expand-file-name "private/custom.el" emacs-d)
custom-theme-directory (expand-file-name "themes/" emacs-d))
(add-to-list 'load-path (expand-file-name "site-lisp" emacs-d))
;; Ensure that ~/.emacs.d/private exists, because we want to store data there
(let ((private-data-dir (expand-file-name "private/" emacs-d)))
(unless (file-directory-p private-data-dir)
(make-directory private-data-dir)))
;; * Mode activation