* core/core-load-paths.el: Support customize spacemacs-cache-directory

Author: sunlin7

core/core-load-paths.el

@@ -25,6 +25,10 @@
 ;;    Define various PATH variables, and set up load path.
 
 ;;; Code:
+(defgroup spacemacs nil
+  "Spacemacs customizations."
+  :group 'emacs
+  :prefix 'spacemacs-)
 
 ;;;; PATH variables/constants
 
@@ -94,16 +98,22 @@
 ;;
 ;; This is based on `user-emacs-directory', not `spacemacs-start-directory',
 ;; because Spacemacs may be installed to a shared location and this directory
-;; and its children should be per-user.
-(defconst spacemacs-cache-directory
+;; and its children should be per-user. Allow user to define their own path.
+(defcustom spacemacs-cache-directory
   (concat user-emacs-directory ".cache/")
-  "Spacemacs storage area for persistent files.")
+  "Spacemacs storage area for persistent files."
+  :group 'spacemacs
+  :type 'directory)
 
 ;; ~/.emacs.d/.cache/auto-save
-(defconst spacemacs-auto-save-directory
-  (concat spacemacs-cache-directory "auto-save/")
+(defconst spacemacs-auto-save-directory nil
   "Spacemacs auto-save directory.")
 
+(defun spacemacs/auto-save-directory ()
+  "Spacemacs auto-save directory."
+  (or spacemacs-auto-save-directory
+      (concat spacemacs-cache-directory "auto-save/")))
+
 
 ;;;; Setup cache directories
 

core/core-spacemacs.el

@@ -22,11 +22,6 @@
 
 (setq message-log-max 16384)
 
-(defgroup spacemacs nil
-  "Spacemacs customizations."
-  :group 'emacs
-  :prefix 'spacemacs-)
-
 (require 'subr-x nil 'noerror)
 (require 'core-versions)
 (require 'core-load-paths)

layers/+spacemacs/spacemacs-defaults/config.el

@@ -203,18 +203,18 @@ or `nil' to only save and not visit the file."
 
 ;; Auto-save file
 (setq auto-save-default (not (null dotspacemacs-auto-save-file-location)))
-(setq auto-save-list-file-prefix (concat spacemacs-auto-save-directory))
+(setq auto-save-list-file-prefix (spacemacs/auto-save-directory))
 ;; always save TRAMP URLs to cache directory no matter what is the value
 ;; of `dotspacemacs-auto-save-file-location'
-(let ((autosave-dir (concat spacemacs-auto-save-directory "dist/")))
+(let ((autosave-dir (concat (spacemacs/auto-save-directory) "dist/")))
   (setq auto-save-file-name-transforms
         `(("\\`/[^/]*:\\([^/]*/\\)*\\([^/]*\\)\\'" ,autosave-dir  t)))
   (unless (or (file-exists-p autosave-dir)
               (null dotspacemacs-auto-save-file-location))
     (make-directory autosave-dir t)))
 ;; Choose auto-save location
 (cl-case dotspacemacs-auto-save-file-location
-  (cache (let ((autosave-dir (concat spacemacs-auto-save-directory "site/")))
+  (cache (let ((autosave-dir (concat (spacemacs/auto-save-directory) "site/")))
            (add-to-list 'auto-save-file-name-transforms
                         `(".*" ,autosave-dir t) 'append)
            (unless (file-exists-p autosave-dir)