[elpa] externals/org ccb0271 6/6: org-persist.el: Do not add write hooks when there is no write access

[ELPA Syncer]

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

    org-persist.el: Do not add write hooks when there is no write access
---
 lisp/org-persist.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 55c6368..b017be1 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -278,8 +278,18 @@ When BUFFER is `all', unregister VAR in all buffers."
                 (delete-directory (file-name-directory persist-file))))))))
     (setq org-persist--index (nreverse new-index))))
 
-(add-hook 'kill-emacs-hook #'org-persist-gc)
-(add-hook 'kill-emacs-hook #'org-persist-write-all 100)
+;; Automatically write the data, but only when we have write access.
+(let ((dir (directory-file-name
+            (file-name-as-directory org-persist-directory))))
+  (while (and (not (file-exists-p dir))
+              (not (equal dir (setq dir (directory-file-name
+                                       (file-name-directory dir)))))))
+  (if (not (file-writable-p dir))
+      (message "Missing write access rights to org-persist-directory: %S"
+               org-persist-directory)
+    (add-hook 'kill-emacs-hook #'org-persist-gc)
+    (add-hook 'kill-emacs-hook #'org-persist-write-all 100)))
+
 (add-hook 'after-init-hook #'org-persist-read-all)
 
 (provide 'org-persist)