karei.dev
+9
-1
.config/emacs/init.el
+9
-1
.config/emacs/init.el
···
3
;; UTILS ;;
4
;;;;;;;;;;;
5
(defun conf-dir(path) (concat (expand-file-name user-emacs-directory) path))
6
7
;;;;;;;;;;;;;;;;;;;;
8
;; REROUTE CUSTOM ;;
···
28
(setq inhibit-splash-screen t)
29
(setq initial-scratch-message nil)
30
(setq ring-bell-function 'ignore)
31
-
(setq backup-directory-alist '(("." . (conf-dir "backup/"))))
32
(setq-default indent-tabs-mode nil)
33
(setq-default tab-width 4)
34
(setq c-basic-offset 4)
···
3
;; UTILS ;;
4
;;;;;;;;;;;
5
(defun conf-dir(path) (concat (expand-file-name user-emacs-directory) path))
6
+
(defun temp-dir(path)
7
+
(let ((temp-dir (concat (expand-file-name temporary-file-directory) path)))
8
+
(unless (file-exists-p temp-dir)
9
+
(make-directory temp-dir))
10
+
temp-dir))
11
12
;;;;;;;;;;;;;;;;;;;;
13
;; REROUTE CUSTOM ;;
···
33
(setq inhibit-splash-screen t)
34
(setq initial-scratch-message nil)
35
(setq ring-bell-function 'ignore)
36
+
(let ((temp-dir (temp-dir "emacs/")))
37
+
(setq backup-directory-alist `((".*" . ,temp-dir)))
38
+
(setq auto-save-file-name-transforms `((".*" ,temp-dir t)))
39
+
(setq lock-file-name-transforms `((".*" ,temp-dir t))))
40
(setq-default indent-tabs-mode nil)
41
(setq-default tab-width 4)
42
(setq c-basic-offset 4)