Add category metadata to completing-read

bbatsov · May 26, 2024 · f3bb173 · f3bb173
1 parent 0163b33
commit f3bb173
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/projectile.el b/projectile.el
@@ -2072,7 +2072,13 @@ project-root for every file."
                       ((bound-and-true-p ivy-mode)  'ivy)
                       (t 'default))
                    projectile-completion-system)
-            ('default (completing-read prompt choices nil nil initial-input))
+            ('default (completing-read prompt (lambda (string pred action)
+                                                (cond
+                                                 ((eq action 'metadata)
+                                                  '(metadata . ((category . file))))
+                                                 (t
+                                                  (complete-with-action action choices string pred))))
+                                       nil nil initial-input))
             ('ido (ido-completing-read prompt choices nil nil initial-input))
             ('helm
              (if (and (fboundp 'helm)