diff options
| author | Thanos Apollo <public@thanosapollo.org> | 2026-02-23 00:08:35 +0200 |
|---|---|---|
| committer | Thanos Apollo <public@thanosapollo.org> | 2026-02-23 00:48:27 +0200 |
| commit | e5dcd23a4430b74e6a55663cb57582f62b7faedd (patch) | |
| tree | c833dbda03c17cf1cdb1ddeb4c04d99749bebf33 | |
| parent | f279f8d76eeeacc86c438d9e62e7799f75464518 (diff) | |
[Refactor] extract directory creation into a separate function.
| -rw-r--r-- | org-gnosis.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/org-gnosis.el b/org-gnosis.el index c522c9d..3a9a39b 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 |