diff options
| author |  Tom Willemse | 2019-03-30 12:06:56 -0700 |
|---|---|---|
| committer | Tom Willemse | 2019-03-30 12:10:25 -0700 |
| commit | 87d03bef9433a7ff5fbceb709df36b49818f6f58 (patch) | |
| tree | 0761bb05fed725c4f5fd7abcd611cd27b02947ea | |
| parent | ab1ca612da0829888cb3f94344a3366fc75e3e6d (diff) | |
| download | emacs-config-87d03bef9433a7ff5fbceb709df36b49818f6f58.tar.gz emacs-config-87d03bef9433a7ff5fbceb709df36b49818f6f58.zip | |
Ensure the auto-save directory exists
The auto-save functions don't automatically create it.
| -rw-r--r-- | oni-core.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/oni-core.el b/oni-core.el index 5b3af65..488d512 100644 --- a/oni-core.el +++ b/oni-core.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 20190304234446 +;; Version: 20190330120416 ;; Package-Requires: (oni-data-dir expand-region multiple-cursors embrace) ;; This program is free software; you can redistribute it and/or modify @@ -29,6 +29,9 @@ (require 'oni-data-dir) +(defconst oni-core--auto-save-directory (oni-data-dir-locate "auto-save-files/") + "Directory where auto-saves go.") + (defalias 'yes-or-no-p 'y-or-n-p) (defun oni-core--destroy-trailing-whitespace () @@ -44,9 +47,14 @@ (local-set-key (kbd "RET") 'electric-newline-and-maybe-indent)) (local-unset-key (kbd "C-j")) (local-unset-key (kbd "RET")))) + +(defun oni-core--ensure-autosave-directory-exists () + "Create the autosave directory if doesn't exist." + (mkdir oni-core--auto-save-directory t)) + (add-to-list 'auto-save-file-name-transforms - `(".*" ,(oni-data-dir-locate "auto-save-files/") t) - :append) + `(".*" ,oni-core--auto-save-directory t) + :append) (setq backup-directory-alist `((".*" . ,(oni-data-dir-locate "backup-files")))) @@ -79,6 +87,7 @@ (add-hook 'electric-indent-local-mode-hook #'oni-core--switch-newline-keys) (add-hook 'minibuffer-setup-hook 'electric-pair-local-mode) (add-hook 'prog-mode-hook 'goto-address-prog-mode) +(add-hook 'auto-save-hook #'oni-core--ensure-autosave-directory-exists) (global-set-key (kbd "C-M-SPC") 'er/expand-region) (global-set-key (kbd "M-+") 'mc/mark-next-like-this) |