[elpa] externals/org 7c2d93560c 03/31: org-persist-default-expiry: Introduce and change default

[ELPA Syncer]

branch: externals/org
commit 7c2d93560c4b3f93271220aecee622d59c12873d
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-persist-default-expiry: Introduce and change default
    
    * lisp/org-persist.el: New customisation controlling default persist
    data expiry.  Defaults to 30 days from last access.
    (org-persist-register): Change default value of `:expiry' key to
    `org-persist-default-expiry'.
---
 lisp/org-persist.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 413c7790d8..7ac6940b0b 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -143,6 +143,20 @@ password prompts to log in."
                  (number :tag "Keep not more than X files")
                  (const :tag "Check if exist on remote" 'check-existence)))
 
+(defcustom org-persist-default-expiry 30
+  "Default expiry condition for persistent data.
+
+When this variable is `nil', all the data vanishes at the end of Emacs
+session.  When `never', the data never vanishes.  When a number, the
+data is deleted that number days after last access.  When a function,
+it should be a function returning non-nil when the data is expired.  The
+function will be called with a single argument - collection."
+  :group 'org-persist
+  :type '(choice (const :tag "Never" 'never)
+                 (const :tag "Always" nil)
+                 (number :tag "Keep N days")
+                 (function :tag "Function")))
+
 (defconst org-persist-index-file "index"
   "File name used to store the data index.")
 
@@ -571,7 +585,7 @@ COLLECTION is the plist holding data collectin."
 
 ;;;; Public API
 
-(cl-defun org-persist-register (container &optional associated &rest misc &key 
inherit &key (expiry 'never) &allow-other-keys)
+(cl-defun org-persist-register (container &optional associated &rest misc &key 
inherit &key (expiry org-persist-default-expiry) &allow-other-keys)
   "Register CONTAINER in ASSOCIATED to be persistent across Emacs sessions.
 Optional key INHERIT makes CONTAINER dependent on another container.
 Such dependency means that data shared between variables will be