From 2ff88dabffa29dc0761a1f5bf7d70757852c8d59 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 23 Jan 2019 01:04:37 -0800 Subject: Add ‘oni-private-storage’ --- oni-private-storage.el | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100644 oni-private-storage.el (limited to 'oni-private-storage.el') diff --git a/oni-private-storage.el b/oni-private-storage.el new file mode 100644 index 0000000..b380965 --- /dev/null +++ b/oni-private-storage.el @@ -0,0 +1,67 @@ +;;; oni-private-storage.el --- Configuration for file storage -*- lexical-binding: t; -*- + +;; Copyright (C) 2019 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: local +;; Version: 20190123010129 + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Emacs and packages frequently store files in the +;; ‘user-emacs-directory’. I prefer to keep it clean and store these +;; data files in their own directory. + +;;; Code: + +;;; Put backup and auto save files in their own directories so they +;;; don't clutter the rest of the filesystem. +(setq backup-directory-alist + `((".*" . ,(concat user-emacs-directory "data/backup-files")))) + +(add-to-list + 'auto-save-file-name-transforms + `(".*" ,(concat user-emacs-directory "data/auto-save-files/") t) + :append) + +(setq auto-save-list-file-prefix + (concat user-emacs-directory "data/" "auto-save-list/.saves-")) + +(eval-when-compile (require 'bookmark)) + +(setq bookmark-default-file + (concat user-emacs-directory "data/bookmarks")) + +(setq abbrev-file-name + (concat user-emacs-directory "data/abbrev_defs")) + +(eval-when-compile (require 'forge-db nil :noerror)) + +(setq forge-database-file + (concat user-emacs-directory "data/forge-database.sqlite")) + +(eval-when-compile (require 'projectile nil :noerror)) + +(setq projectile-cache-file + (concat user-emacs-directory "data/projectile.cache")) + +(setq projectile-known-projects-file + (concat user-emacs-directory "data/projectile-bookmarks.eld")) + +;;;###autoload(with-eval-after-load 'files (require 'oni-private-storage)) + +(provide 'oni-private-storage) +;;; oni-private-storage.el ends here -- cgit v1.2.3-54-g00ecf