magit--untracked-files: New function

This is a potential replacement for `magit-untracked-files', but
actually replacing that requires more work.

1 files changed, 10 insertions, 0 deletions

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index d8d9d83..1ce4fc2 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1132,6 +1132,16 @@ issue."
                     (and (not all) "--exclude-standard")
                     "--" files))
 
+(defun magit--untracked-files (&optional directory all)
+  (magit-with-toplevel
+    (seq-keep (##and (eq (aref % 0) ??)
+                     (substring % 3))
+              (magit-git-items "status" "-z" "--porcelain"
+                               (if all
+                                   "--untracked-files=all"
+                                 "--untracked-files=normal")
+                               "--" directory))))
+
 (defun magit-list-untracked-files (&optional files)
   "Return a list of untracked files.