Merge branch 'master' into documentation

Conflicts:
	sx-method.el
	sx-question-list.el
	sx-question-mode.el
	sx-question.el
	sx-request.el
	sx.el

1 files changed, 25 insertions, 0 deletions

diff --git a/sx-cache.el b/sx-cache.el
index 80b6ced..63025ea 100644
--- a/sx-cache.el
+++ b/sx-cache.el
@@ -72,6 +72,31 @@ CACHE is resolved to a file name by `sx-cache-get-file-name'."
                 (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 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 (cl-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