feat: Redirect custom file to cache dir
This commit is contained in:
@@ -16,6 +16,7 @@
|
|||||||
(require 'syd-age)
|
(require 'syd-age)
|
||||||
(require 'syd-autosave)
|
(require 'syd-autosave)
|
||||||
(require 'syd-completion)
|
(require 'syd-completion)
|
||||||
|
(require 'syd-custom)
|
||||||
(require 'syd-display-startup-time)
|
(require 'syd-display-startup-time)
|
||||||
(require 'syd-evil)
|
(require 'syd-evil)
|
||||||
(require 'syd-keybinds)
|
(require 'syd-keybinds)
|
||||||
|
|||||||
@@ -3,11 +3,15 @@
|
|||||||
(defvar syd-data-dir
|
(defvar syd-data-dir
|
||||||
(or (getenv "EMACS_DATA_DIR")
|
(or (getenv "EMACS_DATA_DIR")
|
||||||
(error "Need $EMACS_DATA_DIR"))
|
(error "Need $EMACS_DATA_DIR"))
|
||||||
"Directory analogous to XDG_DATA_HOME for miscellaneous Emacs things.")
|
"Directory analogous to XDG_DATA_HOME for miscellaneous Emacs things. Sydnix
|
||||||
|
will wipe this on boot!")
|
||||||
|
|
||||||
(defvar syd-cache-dir
|
(defvar syd-cache-dir
|
||||||
(or (getenv "EMACS_CACHE_DIR")
|
(or (getenv "EMACS_CACHE_DIR")
|
||||||
(error "Need $EMACS_CACHE_DIR")))
|
(error "Need $EMACS_CACHE_DIR"))
|
||||||
|
"Directory analogous to XDG_CACHE_HOME for miscellaneous Emacs things. Sydnix
|
||||||
|
will not usually wipe this on boot; /however/ it is still free to clear this
|
||||||
|
directory at any time.")
|
||||||
|
|
||||||
(provide 'syd-constants)
|
(provide 'syd-constants)
|
||||||
;;; syd-constants.el ends here
|
;;; syd-constants.el ends here
|
||||||
|
|||||||
14
users/crumb/programs/emacs/modules/syd-custom.el
Normal file
14
users/crumb/programs/emacs/modules/syd-custom.el
Normal file
@@ -0,0 +1,14 @@
|
|||||||
|
;;; syd-custom.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
;; To discourage use of the custom file, we store it somewhere will
|
||||||
|
;; Impermanence will wipe it.
|
||||||
|
(use-package emacs
|
||||||
|
;; TODO: I'd like to allow /some/ custom variables. E.g., the trusted
|
||||||
|
;; dir-locals files. See `hack-dir-local-variables'. It has some hooks that
|
||||||
|
;; should make this accomplishable.
|
||||||
|
:custom (custom-file (file-name-concat syd-data-dir "custom.el"))
|
||||||
|
:config
|
||||||
|
(when (file-readable-p custom-file)
|
||||||
|
(load custom-file)))
|
||||||
|
|
||||||
|
(provide 'syd-custom)
|
||||||
Reference in New Issue
Block a user