Selecting a directory like counsel-find-file

Question

I would like to write a function that would prompt the user to select a directory, using an UI like that presented by counsel-find-file.

The starting directory should be an arbitrary directory passed to this function as an argument.

This function should only show the user directories, not files, and the user should be able to navigate up and down the filesystem just as in counsel-find-file.

When the user makes their selection by hitting the RETURN key, the path to the selected directory should be returned to the calling function.

Answer 1

I just figured this out myself (using counsel-dired as a model):

(defun my-counsel-find-directory (&optional start-dir)
  "Return a directory chosen by the user.
The user is prompted to choose a directory starting with START-DIR."
  (let ((ivy-read-prompt "Choose directory: ")
        (counsel--find-file-predicate #'file-directory-p)
        (default-directory (or start-dir default-directory)))
    (ivy-read
     ivy-read-prompt
     #'read-file-name-internal
     :matcher #'counsel--find-file-matcher)))