From: Dmitry Gutov <dmitry@gutov.dev>
To: Juri Linkov <juri@linkov.net>
Cc: 70577@debbugs.gnu.org
Subject: bug#70577: [PATCH] New command other-project-prefix
Date: Sat, 4 May 2024 05:12:39 +0300 [thread overview]
Message-ID: <c062e78a-6145-4ea5-baa7-27d948f8a758@gutov.dev> (raw)
In-Reply-To: <86le4tz88d.fsf@mail.linkov.net>
[-- Attachment #1: Type: text/plain, Size: 2219 bytes --]
On 02/05/2024 09:12, Juri Linkov wrote:
>>> Something is wrong here. I bound 'other-project-prefix' to 'C-x p P'.
>>> Then typing 'C-x p P C-x d' asked a directory name, then later
>>> after selecting a project asked for the directory name again.
>>
>> Looks like that has to do with the interactive spec. See the attached next
>> revision, it seems to behave better.
>
> Thanks, this works now (except that it can't be debugged because of the
> Lisp error: (wrong-type-argument listp ignore)).
>
> Also 'C-h' is not a problem: 'help-form-show' does nothing
> without 'help-form', but with 'help-form' works fine:
>
> (define-key map (vector help-char)
> (lambda ()
> (interactive)
> (let ((help-form "You can use any global keybinding."))
> (help-form-show))))
We would want 'C-h' to show the regular buffer with key bindings, won't
we? With similar output to the one that we get after 'C-x p C-h' or 'C-x
v C-h'. The output might be weirder because of the composed keymap, but
it could still be useful.
Also, with which-key-mode, C-h would do its thing.
> However, a much bigger problem is that unfortunately many test cases from
> https://debbugs.gnu.org/63648#203 are broken. For example,
> 'C-x p p C-b' fails the same way as in bug#58784.
> 'C-x p p f M-n' fails because it expects to read arguments
> in a previous project with an old value of default-directory, etc.
Thanks for noticing. Looks like the call to project-prompter can change
the value of this-command, and that's why the subsequent check went down
the wrong branch. See the attached v3 with the fix.
> Maybe this could be fixed by running 'interactive' in a previous project
> by using something like:
>
> (around-fun
> (lambda (command &rest _args)
> (interactive (lambda (spec)
> (let ((default-directory prev-dir))
> (advice-eval-interactive-spec spec))))
I think the command might rather expect to be called in the "new"
project. And also while some have interactive specs with significant
logic inside, others don't; introducing a difference there could cause
more problems.
[-- Attachment #2: other-project-prefix-v3.diff --]
[-- Type: text/x-patch, Size: 2478 bytes --]
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 000a05804a8..1ee6e5848a3 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -952,6 +952,48 @@ project-other-tab-command
(when (bound-and-true-p tab-prefix-map)
(define-key tab-prefix-map "p" #'project-other-tab-command))
+;;;###autoload
+(defun other-project-prefix ()
+ "\"Switch\" to another project before running an Emacs command.
+Makes sure the next command invoked asks for the project to run it in."
+ (interactive)
+ (prefix-command-preserve-state)
+ (letrec ((depth (minibuffer-depth))
+ (echofun (lambda () "[switch-project]"))
+ (around-fun
+ (lambda (command &rest _args)
+ (interactive)
+ (advice-remove this-command around-fun)
+ (unless (or (eq this-command 'other-project-prefix)
+ (eq last-command-event help-char))
+ (let* ((this-command-saved this-command)
+ (root (funcall project-prompter)))
+ (if (or (string-prefix-p "project-"
+ (symbol-name this-command-saved))
+ (get this-command-saved 'project-aware))
+ (let ((project-current-directory-override root))
+ (call-interactively command))
+ (let ((default-directory root))
+ (call-interactively command)))))))
+ (prefun
+ (lambda ()
+ (unless (> (minibuffer-depth) depth)
+ (remove-hook 'pre-command-hook prefun)
+ (remove-hook 'prefix-command-echo-keystrokes-functions echofun)
+ (when (and this-command (symbolp this-command))
+ (advice-add this-command :around around-fun))))))
+ (add-hook 'pre-command-hook prefun)
+ (add-hook 'prefix-command-echo-keystrokes-functions echofun)
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map project-prefix-map)
+ ;; Doesn't work ;-(
+ ;; (define-key map (vector help-char)
+ ;; (lambda () (interactive) (help-form-show)))
+ (set-transient-map map))
+ (message (concat "Type " (project--keymap-prompt) " or any global key"))))
+
+;; (define-key project-prefix-map (kbd "P") #'other-project-prefix)
+
(declare-function grep-read-files "grep")
(declare-function xref--find-ignores-arguments "xref")
next prev parent reply other threads:[~2024-05-04 2:12 UTC|newest]
Thread overview: 34+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-04-26 3:01 bug#70577: [PATCH] New command other-project-prefix Dmitry Gutov
2024-04-26 6:09 ` Juri Linkov
2024-04-26 10:59 ` Dmitry Gutov
2024-04-26 16:20 ` Dmitry Gutov
2024-04-28 12:13 ` Sean Whitton via Bug reports for GNU Emacs, the Swiss army knife of text editors
2024-04-28 15:56 ` Dmitry Gutov
2024-04-28 15:56 ` Dmitry Gutov
2024-04-28 16:46 ` Juri Linkov
2024-04-28 16:51 ` Juri Linkov
2024-04-28 21:40 ` Dmitry Gutov
2024-05-02 6:12 ` Juri Linkov
2024-05-04 2:12 ` Dmitry Gutov [this message]
2024-05-04 7:24 ` Eli Zaretskii
2024-05-04 17:22 ` Dmitry Gutov
2024-05-04 17:34 ` Eli Zaretskii
2024-05-05 0:02 ` Dmitry Gutov
2024-05-05 5:44 ` Eli Zaretskii
2024-05-05 18:26 ` Dmitry Gutov
2024-05-05 16:40 ` Juri Linkov
2024-05-05 18:55 ` Dmitry Gutov
2024-05-06 17:25 ` Juri Linkov
2024-05-06 18:30 ` Juri Linkov
2024-05-07 19:23 ` Dmitry Gutov
2024-05-09 6:24 ` Juri Linkov
2024-05-07 19:16 ` Dmitry Gutov
2024-05-09 2:22 ` Dmitry Gutov
2024-05-09 6:20 ` Juri Linkov
2024-05-10 1:46 ` Dmitry Gutov
2024-05-10 6:43 ` Juri Linkov
2024-05-10 15:09 ` Dmitry Gutov
2024-05-12 18:33 ` Dmitry Gutov
2024-05-14 6:23 ` Juri Linkov
2024-05-14 20:02 ` Dmitry Gutov
2024-05-15 6:46 ` Juri Linkov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=c062e78a-6145-4ea5-baa7-27d948f8a758@gutov.dev \
--to=dmitry@gutov.dev \
--cc=70577@debbugs.gnu.org \
--cc=juri@linkov.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.