From c19eadcf20ae585af5aea772aa13382c996dc47d Mon Sep 17 00:00:00 2001 From: TEC Date: Tue, 17 Jan 2023 23:43:00 +0800 Subject: [PATCH] org-latex-preview: Allow setting persist expiry * lisp/org-latex-preview.el (org-latex-preview--cache-image, org-latex-preview-persist-expiry): Introduce a new variable `org-latex-preview-persist-expiry' which is used within `org-latex-preview--cache-image' as the expiry value when calling `org-persist-register' on preview data. --- lisp/org-latex-preview.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/org-latex-preview.el b/lisp/org-latex-preview.el index ba45b3973..b2728cae9 100644 --- a/lisp/org-latex-preview.el +++ b/lisp/org-latex-preview.el @@ -238,6 +238,16 @@ of the Emacs session." :package-version '(Org . "9.7") :type 'boolean) +(defcustom org-latex-preview-persist-expiry 7 + "A homologue of `org-persist-default-expiry' for preview data. +This is only relevant when `org-latex-preview-persist' is non-nil." + :group 'org-latex + :package-version '(Org . "9.7") + :type '(choice (const :tag "Never" never) + (const :tag "Always" nil) + (number :tag "Keep N days") + (function :tag "Function"))) + (defcustom org-latex-preview-numbered nil "Whether to calculate and apply correct equation numbering." :group 'org-latex @@ -1774,6 +1784,7 @@ enabled, see `org-latex-preview-persist'." (file ,path) (elisp-data ,info)) (list :key key) + :expiry org-latex-preview-persist-expiry :write-immediately t)))) (cons (cadr label-path-info) info)) (unless org-latex-preview--table