;;; -*- lexical-binding: t -*-

(setq create-lockfiles nil)


(let ((dir "~/tmp/emacs-saves/"))
  (unless (file-accessible-directory-p dir)
    (make-directory dir))

  (setq auto-save-file-name-transforms `((".*" ,dir t)))
  (setq auto-save-interval 0)
  (setq auto-save-timeout 30))


(let ((dir "~/tmp/emacs-backups/"))
  (unless (file-accessible-directory-p dir)
    (make-directory dir))

  (setq backup-directory-alist `(("." . ,dir)))

  (setq vc-make-backup-files t)
  (add-hook 'after-save-hook (lambda () (setq buffer-backed-up nil)))

  (setq backup-by-copying t)
  (setq version-control t)
  (setq kept-new-versions 10)
  (setq kept-old-versions 0)
  (setq delete-old-versions t))