ryuslash/emacs-config
1
0
Fork 0
Code Activity

Ensure the auto-save directory exists

Browse source 
The auto-save functions don't automatically create it.
This commit is contained in:
Tom Willemse 2019-03-30 12:06:56 -07:00
parent ab1ca612da
commit 87d03bef94
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
oni-core.el
View file

@ -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)