[elpa] externals/denote 6837f8df06 1/8: Make the creation of 'denote-directory' its own function

[ELPA Syncer]

branch: externals/denote
commit 6837f8df06249a861ebcde17a853e23bbf45de04
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make the creation of 'denote-directory' its own function
---
 denote.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index 8ce13e0083..9b73af441d 100644
--- a/denote.el
+++ b/denote.el
@@ -520,12 +520,16 @@ things accordingly.")
       dir-locals)
      (t nil))))
 
+(defun denote--make-denote-directory ()
+  "Make the variable `denote-directory' and its parents, if needed."
+  (when (and (stringp denote-directory)
+             (not (file-directory-p denote-directory)))
+    (make-directory denote-directory :parents)))
+
 (defun denote-directory ()
   "Return path of variable `denote-directory' as a proper directory."
   (let ((path (or (denote--default-directory-is-silo-p)
-                  (when (and (stringp denote-directory)
-                             (not (file-directory-p denote-directory)))
-                    (make-directory denote-directory t))
+                  (denote--make-denote-directory)
                   (default-value 'denote-directory))))
     (file-name-as-directory (expand-file-name path))))