branch: externals/org-gnosis
commit e5dcd23a4430b74e6a55663cb57582f62b7faedd
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
[Refactor] extract directory creation into a separate function.
---
org-gnosis.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/org-gnosis.el b/org-gnosis.el
index c522c9d051..3a9a39b2df 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -85,10 +85,11 @@
"Gnosis journal directory."
:type 'directory)
-;; Create notes & journal directories.
-(dolist (dir `(,org-gnosis-dir ,org-gnosis-journal-dir))
- (unless (file-directory-p dir)
- (make-directory dir)))
+(defun org-gnosis-ensure-directories ()
+ "Create note and journal directories if they do not exist."
+ (dolist (dir (list org-gnosis-dir org-gnosis-journal-dir))
+ (unless (file-directory-p dir)
+ (make-directory dir t))))
(defcustom org-gnosis-show-tags nil
"Display tags with `org-gnosis-find'."
@@ -972,6 +973,7 @@ When FORCE, update all files. Otherwise, only update
changed files."
When FORCE (prefix arg), rebuild database from scratch."
(interactive "P")
(let ((gc-cons-threshold most-positive-fixnum)) ; Optimize GC during sync
+ (org-gnosis-ensure-directories)
(when force
;; Close connection and delete database file for full rebuild
(when (and org-gnosis-db--connection
