From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Dmitry Gutov Newsgroups: gmane.emacs.bugs Subject: bug#45134: Add project-switch-project-by-name Date: Wed, 9 Dec 2020 21:36:21 +0200 Message-ID: <881023cd-c9f7-c8c0-7042-c761952d68b2@yandex.ru> References: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="33671"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.10.0 To: Rudolf Schlatte , 45134@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Wed Dec 09 21:06:52 2020 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kn5jg-0008g2-B3 for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 09 Dec 2020 21:06:52 +0100 Original-Received: from localhost ([::1]:39158 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kn5jf-0006iM-1c for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 09 Dec 2020 15:06:51 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:41500) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kn5Go-0003nk-8B for bug-gnu-emacs@gnu.org; Wed, 09 Dec 2020 14:37:09 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:52864) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kn5Go-0001y0-0e for bug-gnu-emacs@gnu.org; Wed, 09 Dec 2020 14:37:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kn5Gn-0004cb-UM for bug-gnu-emacs@gnu.org; Wed, 09 Dec 2020 14:37:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Dmitry Gutov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 09 Dec 2020 19:37:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45134 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 45134-submit@debbugs.gnu.org id=B45134.160754259117724 (code B ref 45134); Wed, 09 Dec 2020 19:37:01 +0000 Original-Received: (at 45134) by debbugs.gnu.org; 9 Dec 2020 19:36:31 +0000 Original-Received: from localhost ([127.0.0.1]:36177 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kn5GJ-0004bo-GC for submit@debbugs.gnu.org; Wed, 09 Dec 2020 14:36:31 -0500 Original-Received: from mail-ej1-f47.google.com ([209.85.218.47]:40914) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kn5GH-0004bb-Uk for 45134@debbugs.gnu.org; Wed, 09 Dec 2020 14:36:30 -0500 Original-Received: by mail-ej1-f47.google.com with SMTP id x16so3832267ejj.7 for <45134@debbugs.gnu.org>; Wed, 09 Dec 2020 11:36:29 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=sender:subject:to:references:from:message-id:date:user-agent :mime-version:in-reply-to:content-language:content-transfer-encoding; bh=f5S9mKNCFZZYsJ6S64qjkvfgsPFQKTCGtKL8240fBxc=; b=kGw8M/KNfyLjQMGCkY3E8NE8KofHrnfD89VF0GOQZurumVvmuNnsDI457RtxjhhAep OpZaMD1f2BM6ukUD1fKfOMxwXzAibMvF/35U+kZdf/qiUFUliGBbsQ1gE0MU1uJVg7/V Ag7Ct7Vuds1JlrF4tr6PciRX851i6eaT+i/Lw1lRQGjOfh0aHR6ZuWzVe/EdMrXTu4tI T+s9fiPjKuT2Fmfm78JZBREY6IrY7D+yh4J5yaoxZlBCd4IMp8jaMkKboJ6HRwzU6kZC bsp1h/qeVkNuyHPEwKno5Ns2ZLLissEIOJpWp4ADavzScrJD5TQHYNnYQrY3s97TPb/2 liqg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:sender:subject:to:references:from:message-id :date:user-agent:mime-version:in-reply-to:content-language :content-transfer-encoding; bh=f5S9mKNCFZZYsJ6S64qjkvfgsPFQKTCGtKL8240fBxc=; b=czPrdjO09y160cWwjHkccVve+r7/WOb6DT/sNSBeI3HozImZJBokRXIWbSnn3BcEl4 fbS3aJ+is+Eo0s7SSsrTdJ3iJvEMK2UAY1EOeMenBXQAPbswi04RJj+V+Y5yqt4gLG/v t+cNJEmeBhztsEDEMzaETLycLubXFY98WeXDdi42zxI0Oos+mCkApkLo4//P7TLz3/IJ BtBvOCYaoBiHxIXsSG+JX1r6uD8o+aP0oo3FsbkqiYj3U95nRTpmERH9uVhVKMezlhqN PQvwcEe/GqlJjuF3YXFYfqeFcRvc936Nt9ZHxw7jtmO2h0clfTYo5YeNWESAegLpiyzl bViQ== X-Gm-Message-State: AOAM533hzOBgJtOA2m8RDCJc9X50lmwsFbi69CoySYWK/gCq7XANin+1 Itp2c85O/7LMThOocCtWVmeNT2rzfLgP2g== X-Google-Smtp-Source: ABdhPJz3EabPO0h0oSWzSaxRHbpxxfw8DXF9ZRRxIS+3NtL7texJLezLs9Nqj5uWP7mVRzonFAygUA== X-Received: by 2002:a17:906:27d1:: with SMTP id k17mr3497777ejc.325.1607542583586; Wed, 09 Dec 2020 11:36:23 -0800 (PST) Original-Received: from [192.168.0.4] ([66.205.71.3]) by smtp.googlemail.com with ESMTPSA id h12sm2275687eja.113.2020.12.09.11.36.22 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Wed, 09 Dec 2020 11:36:22 -0800 (PST) In-Reply-To: Content-Language: en-US X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:195579 Archived-At: On 09.12.2020 17:14, Rudolf Schlatte wrote: > Certain “dashboard-type” packages present a list of projects and let the > user switch to one of them. In that case, the project root is already > known, and project.el only needs to present the dispatch menu of > ‘project-switch-commands’. So the idea is you know the directory in advance and only need to show the dispatch menu? How about this instead? diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 449eadc3de..f7c6a55f44 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1275,13 +1275,13 @@ project--keymap-prompt " ")) ;;;###autoload -(defun project-switch-project () +(defun project-switch-project (dir) "\"Switch\" to another project by running an Emacs command. The available commands are presented as a dispatch menu made from `project-switch-commands'." - (interactive) - (let ((dir (project-prompt-project-dir)) - (choice nil)) + (interactive + (list (project-prompt-project-dir))) + (let ((choice nil)) (while (not choice) (setq choice (assq (read-event (project--keymap-prompt)) project-switch-commands)))