kemonine/emacs
Archived
1
0
Fork 0
Code Activity

fixup auto saves / auto backups

Browse source
This commit is contained in:
KemoNine 2022-04-23 13:10:05 -04:00
parent c3baeecc2d
commit 01b7811a8b
1 changed files with 18 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
common/_global.el
View file

@ -13,6 +13,24 @@
(setq kmn/is-termux
(string-suffix-p "Android" (string-trim (shell-command-to-string "uname -a"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; backups
(defconst kmn/backup-dir
(expand-file-name "backups/" user-emacs-directory))
(unless (file-exists-p kmn/backup-dir)
(make-directory kmn/backup-dir))
(setq backup-directory-alist `((".*" . ,kmn/backup-dir)))
(setq auto-save-list-file-prefix kmn/backup-dir)
(setq auto-save-file-name-transforms
`(("\\(?:[^/]*/\\)*\\(.*\\)" ,(concat kmn/backup-dir "\\1") t)))
(setq backup-by-copying t) ; safest form of backup file creation
; Config backups so we have *more*, not less
(setq delete-old-versions t
kept-new-versions 1
kept-old-versions 3
version-control t
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; dired adjustments
(use-package dired-rainbow
@ -210,19 +228,6 @@
(set-language-environment "UTF-8")
(set-default-coding-systems 'utf-8-unix)
; backups
(defconst kmn/backup-dir
(expand-file-name "backups" user-emacs-directory))
(unless (file-exists-p kmn/backup-dir)
(make-directory kmn/backup-dir))
(setq backup-directory-alist `((kmn/backup-dir)))
(setq backup-by-copying t) ; safest form of backup file creation
; Config backups so we have *more*, not less
(setq delete-old-versions t
kept-new-versions 1
kept-old-versions 3
version-control t
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; set font for emoji -- DOES NOT WORK ON MOBILE
(when (eq system-type 'windows-nt)