[elpa] externals/denote 7ce102b206 06/13: Make denote-subdirs-prompt public

[ELPA Syncer]

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

    Make denote-subdirs-prompt public
    
    We are working towards version 1.0.0.  The idea is to provide functions
    that users/developers can rely on.  By making them public (removing the
    double hyphens) we signify that those forms are (i) in a stable
    state, and (ii) any change to them will be handled with care and
    documented accordingly.
---
 denote.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index 5f7e48048b..21e00c01fa 100644
--- a/denote.el
+++ b/denote.el
@@ -1187,7 +1187,7 @@ When called from Lisp, all arguments are optional.
                                   (region-end))))))
          ('keywords (aset args 1 (denote-keywords-prompt)))
          ('file-type (aset args 2 (denote-file-type-prompt)))
-         ('subdirectory (aset args 3 (denote--subdirs-prompt)))
+         ('subdirectory (aset args 3 (denote-subdirs-prompt)))
          ('date (aset args 4 (denote-date-prompt)))
          ('template (aset args 5 (denote--template-prompt)))))
      (append args nil)))
@@ -1268,7 +1268,7 @@ here for clarity."
   "1.0.0")
 
 (defvar denote--subdir-history nil
-  "Minibuffer history of `denote--subdirs-prompt'.")
+  "Minibuffer history of `denote-subdirs-prompt'.")
 
 ;; Making it a completion table is useful for packages that read the
 ;; metadata, such as `marginalia' and `embark'.
@@ -1281,13 +1281,18 @@ here for clarity."
                    "Select subdirectory: ")))
     (completing-read prompt table nil t nil 'denote--subdir-history def)))
 
-(defun denote--subdirs-prompt ()
+(defun denote-subdirs-prompt ()
   "Handle user input on choice of subdirectory."
   (let* ((root (directory-file-name (denote-directory)))
          (subdirs (denote--subdirs))
          (dirs (push root subdirs)))
     (denote--subdirs-completion-table dirs)))
 
+(define-obsolete-function-alias
+  'denote--subdirs-prompt
+  'denote-subdirs-prompt
+  "1.0.0")
+
 (defvar denote--template-history nil
   "Minibuffer history of `denote--template-prompt'.")