mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-persist: Provide human readable access time and make sure it exist 

* lisp/org-persist.el (org-persist--storage-version): Bump version.
(org-persist-read:generic):
(org-persist-load:generic):
(org-persist-write:generic): Save access time in human-readable form.
This commit is contained in:
Ihor Radchenko 2022-01-15 11:47:27 +08:00
parent aca62116da
commit 9b650938e7
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-persist.el
View File

@ -102,7 +102,7 @@
(require 'org-id)
(require 'xdg nil t)
(defconst org-persist--storage-version "2.1"
(defconst org-persist--storage-version "2.2"
"Persistent storage layout version.")
(defgroup org-persist nil
@ -422,6 +422,7 @@ COLLECTION is the plist holding data collectin."
`(let* ((c (org-persist--normalize-container ,container))
(read-func-symbol (intern (format "org-persist-read:%s" (car c)))))
(setf ,collection (plist-put ,collection :last-access (float-time)))
(setf ,collection (plist-put ,collection :last-access-hr (format-time-string "%FT%T%z" (float-time))))
(unless (fboundp read-func-symbol)
(error "org-persist: Read function %s not defined"
read-func-symbol))
@ -469,6 +470,7 @@ COLLECTION is the plist holding data collectin."
`(let* ((container (org-persist--normalize-container ,container))
(load-func-symbol (intern (format "org-persist-load:%s" (car container)))))
(setf ,collection (plist-put ,collection :last-access (float-time)))
(setf ,collection (plist-put ,collection :last-access-hr (format-time-string "%FT%T%z" (float-time))))
(unless (fboundp load-func-symbol)
(error "org-persist: Load function %s not defined"
load-func-symbol))
@ -516,6 +518,8 @@ COLLECTION is the plist holding data collectin."
"Write CONTAINER in COLLECTION."
`(let* ((c (org-persist--normalize-container ,container))
(write-func-symbol (intern (format "org-persist-write:%s" (car c)))))
(setf ,collection (plist-put ,collection :last-access (float-time)))
(setf ,collection (plist-put ,collection :last-access-hr (format-time-string "%FT%T%z" (float-time))))
(unless (fboundp write-func-symbol)
(error "org-persist: Write function %s not defined"
write-func-symbol))