Add a dired-narrow command that uses completion-styles

Author: noctuid

README.md

@@ -550,6 +550,7 @@ These narrowing functions are provided:
 * `dired-narrow`
 * `dired-narrow-regexp`
 * `dired-narrow-fuzzy`
+* `dired-narrow-completion-styles`
 
 You can also create your own narrowing functions quite easily.  To
 define new narrowing function, use `dired-narrow--internal` and

dired-narrow.el

@@ -276,6 +276,17 @@ read from minibuffer."
   (interactive)
   (dired-narrow--internal 'dired-narrow--regexp-filter))
 
+(defun dired-narrow--completion-styles-filter (filter)
+  "Return whether `completion-styles' FILTER matches the current dired file."
+  (completion-all-completions filter (list (dired-utils-get-filename 'no-dir))
+                              nil (length filter)))
+
+;;;###autoload
+(defun dired-narrow-completion-styles ()
+  "Narrow a dired buffer to the files matching a `completion-styles' query."
+  (interactive)
+  (dired-narrow--internal #'dired-narrow--completion-styles-filter))
+
 (defun dired-narrow--string-filter (filter)
   (let ((words (split-string filter " ")))
     (--all? (save-excursion (search-forward it (line-end-position) t)) words)))