branch: externals/transient commit a3b442243b0aaf3afe96abbd4047b2338a8c34cc Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
transient-read-{,existing-}file: New functions --- lisp/transient.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/transient.el b/lisp/transient.el index 6ac494c..0c2d049 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -2514,6 +2514,14 @@ stand-alone command." ;;;; Readers +(defun transient-read-file (prompt _initial-input _history) + "Read a file." + (file-local-name (expand-file-name (read-file-name prompt)))) + +(defun transient-read-existing-file (prompt _initial-input _history) + "Read an existing file." + (file-local-name (expand-file-name (read-file-name prompt nil nil t)))) + (defun transient-read-directory (prompt _initial-input _history) "Read a directory." (file-local-name (expand-file-name (read-directory-name prompt))))