39 lines
1.3 KiB
EmacsLisp
39 lines
1.3 KiB
EmacsLisp
;;; syd-autosave.el -*- lexical-binding: t; -*-
|
||
|
||
(require 'syd-prelude)
|
||
|
||
(use-package emacs
|
||
:config
|
||
(setq backup-directory-alist
|
||
`(("." . (file-name-concat syd-data-dir "backup")))
|
||
auto-save-list-file-prefix (file-name-concat syd-cache-dir
|
||
"autosave")
|
||
;; Nil means untracked files under VC won't get backed up.
|
||
vc-make-backup-files t
|
||
;; Nil will clobber symlinks.
|
||
backup-by-copying t
|
||
;; Use versioned backups.
|
||
version-control t
|
||
auto-save-file-name-transforms
|
||
;; Good grief, girl...
|
||
`(("\\`/[^/]*:\\([^/]*/\\)*\\([^/]*\\)\\'"
|
||
,(file-name-concat syd-cache-dir "autosave" "tramp-\\2") t)
|
||
(".*"
|
||
,(file-name-concat syd-cache-dir "autosave") t))
|
||
kept-new-versions 5
|
||
delete-old-versions t))
|
||
|
||
;; Save your cursor position in recently-opened files.
|
||
(use-package saveplace
|
||
:hook (on-first-file . save-place-mode)
|
||
:custom (save-place-file (file-name-concat syd-cache-dir "places")))
|
||
|
||
;; Keep track of recently-visited files.
|
||
(use-package recentf
|
||
:hook ((on-first-file . recentf-mode)
|
||
(find-file-hook . recentf-save-list))
|
||
:custom (recentf-save-file (file-name-concat syd-data-dir "recentf")))
|
||
|
||
|
||
(provide 'syd-autosave)
|