That looks nice. Revised patch attached.

On Wed, Feb 12, 2025 at 3:28 PM Dmitry Gutov <dmitry@gutov.dev> wrote:

> On 12/02/2025 22:13, Ship Mints wrote:
> > Sounds good. I'll update the patch now maybe with "Command in" or
> > "Command for" after I see how it looks on the screen.
>
> Thanks.
>
> > Dealing with text stability in the little one-line minibuffer prompt is
> > indeed a challenge. Perhaps we can propertize the prefix to be bold or
> > the menu option list to be bolded so that at least it stands out?
>
> Hm, I think bold might, conversely, call too much attention. It also
> depends on the individual system and font configuration.
>
> Perhaps orthogonally, we could use the string face for the directory
> name. It helps a little, it seems?
>
> diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
> index ff707437e95..a429c1d2c42 100644
> --- a/lisp/progmodes/project.el
> +++ b/lisp/progmodes/project.el
> @@ -2211,7 +2211,7 @@ project--menu-prompt
>      project-switch-commands
>      "  "))
>
> -(defun project--switch-project-command ()
> +(defun project--switch-project-command (&optional dir)
>     (let* ((commands-menu
>             (mapcar
>              (lambda (row)
> @@ -2241,7 +2241,14 @@ project--switch-project-command
>                                          (propertize "Unrecognized input"
>                                                      'face 'warning)
>                                          (help-key-description choice
> nil)))))
> -        (setq choice (read-key-sequence (concat "Choose: " prompt)))
> +        (setq choice (read-key-sequence (concat
> +                                         (if dir
> +                                             (format-message "Command
> in `%s': "
> +                                                             (propertize
> +                                                              dir 'face
> +
> 'font-lock-string-face))
> +                                           "Command: ")
> +                                         prompt)))
>           (when (setq command (lookup-key commands-map choice))
>             (when (numberp command) (setq command nil))
>             (unless (or project-switch-use-entire-map
> @@ -2266,7 +2273,7 @@ project-switch-project
>     (project--remember-dir dir)
>     (let ((command (if (symbolp project-switch-commands)
>                        project-switch-commands
> -                   (project--switch-project-command)))
> +                   (project--switch-project-command dir)))
>           (buffer (current-buffer)))
>       (unwind-protect
>           (progn
>
>