Provide cache invalidation

(sx-cache--invalidate): Invalidate provided cache.  Allows for
invalidating variables associated with cache using `makunbound`.  Cache
can be reinitialized using arg `init-method`.
(sx-cache-invalidate-all): Invalidate all caches then call
`sx-initialize` to reinitialize.  Arg `save-auth` prevents access_token
from being lost.

1 files changed, 26 insertions, 0 deletions

diff --git a/sx-cache.el b/sx-cache.el
index e3b356b..45b379c 100644
--- a/sx-cache.el
+++ b/sx-cache.el
@@ -67,6 +67,32 @@ DATA will be written as returned by `prin1'."
                 (sx-cache-get-file-name cache))
   data)
 
+(defun sx-cache--invalidate (cache &optional vars init-method)
+  "Set cache CACHE to nil.
+
+VARS is a list of variables to set to unbind to ensure cache is
+cleared.
+If INIT-METHOD is defined, call it after all invalidation to
+re-initialize the cache."
+  (sx-cache-set cache nil)
+  (mapc #'makunbound vars)
+  (funcall init-method))
+
+(defun sx-cache-invalidate-all (&optional save-auth)
+  "Invalidate all caches using `sx-cache--invalidate'.
+
+Afterwards reinitialize caches using `sx-initialize'.
+
+If SAVE-AUTH is non-nil, do not clear AUTH cache."
+  (let ((caches (let ((default-directory sx-cache-directory))
+                  (file-expand-wildcards "*.el"))))
+    (when save-auth
+      (setq caches (remove-if (lambda (x)
+                                (string= x "auth.el")) caches)))
+    (lwarn 'stack-mode :debug "Invalidating: %S" caches)
+    (mapc #'sx-cache--invalidate caches)
+    (sx-initialize 'force)))
+
 (provide 'sx-cache)
 ;;; sx-cache.el ends here